my $dbh1=DBI->connect("dbi:Sybase:$server1","$user1", "$pass1" ) or die DBI::errstr;
my $dbh2=DBI->connect("dbi:Sybase:$server2","$user2", "$pass2" ) or die DBI::errstr;

$dbh1->do("SOME SQL ON SERVER 1");
$dbh2->do("SOME SQL ON SERVER 2");