use DBI;
BEGIN {
    $ENV{'SYBASE'} = '/usr/local/freetds';
    $ENV{'TDSVER'} = 7.0;
}
$dbh = DBI->connect("dbi:Sybase:server=10.0.0.1", "$db_username", "$db_password")
        or die "\nCouldn't connect: " . $DBI::errstr;