$DB1 = "dbi:Sybase:server=server_name;database=db";
use DBI;
 
#
# Open the connection to the database
#
  if ( ! defined( $dbh ) ) {
    $dbh = DBI->connect( $DB1, 'uid', 'passw', 'Sybase' );