my $server = "MYSERVER",
my $database = "MYDATABASE";
my $username  = "myname";
my $password = "mypassword";

my $dbh = DBI->connect("DBI:Sybase:server=$server", $username, $password);
           die "Can't connect: " . DBI->errstr() unless $dbh;
$dbh->do("use $database");