use DBI;
use strict;
my $database = "<server name>";
my $db       = "<db name>";
my $uid      = "<Sybase ID>";
my $pwd      = "<Sybase Password";
my %defaults = (
     AutoCommit => 1, # Autocommit enabled.
     PrintError => 0  # Errors not automatically printed.
   );

my $dbh = DBI->connect("dbi:SybaseASE:server=$database;database=$db", "$uid",  "$pwd" );

#  or die "Cannot connect to $database: $DBI::errstr\n";
$dbh->disconnect;
exit(0);
__END__