1 #!/nairvigv/bin/perl
  2 use warnings;
  3 use strict;
  4 use DBI
  5 my $dsn = "jdbc:sybase:Tds:sample.college.com:29813:";
  6 my $user="$ENV{'ESM_DBO'}";
  7 my $password="$ENV{'ESM_DBO_PASSWD'}";
  8
  9
 10 my $dbh = DBI -> connect($dsn,$user,$password)or die $DBI::errstr;