The help file of DBD-TSM module presents one error :
my ($server_name,$user,$password)=(...); #or set
DBI_DSN,DBI_USER,DBI_PASS
- my $dbh=DBI->connect("DBI:TSM:$server_name",$user,$password,
+ my $dbh=DBI->connect("DBB:TSM:$server_name",$user,$password,
{RaiseError => 0,
PrintError => 0}) or die $DBI::errstr;
#If you use environment variable $dbh=DBI->connect();