DBI connect('55zosV8','DAKPM',...) failed:  (SQL-S1000)
 (SQL-S1000)(DBD: db_login/SQLConnect err=-1) at /opt/isv/sqlnk_client/5_50_00/test/test.pl line 17
Couldn't connect to database: (SQL-S1000)
 (SQL-S1000)(DBD: db_login/SQLConnect err=-1) at /opt/isv/sqlnk_client/5_50_00/test/test.pl line 17.              

##</code><code>##

$cat test.pl
#!/opt/isv/perl5.8.0/bin/perl


use DBI;

my $server_name='55zosV8';

my $user='DAKPM';

my $password='xxxxxxxx';


my $dbh = DBI->connect('DBI:ODBC:55zosV8',$user,$password)
  or die "Couldn't connect to database:" . DBI->errstr;
  print "opened database connection\n";