$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";