use DBI;
BEGIN {
    # path to sybase or freetds libs
    $ENV{'SYBASE'}    = "/opt/sybase";
    # Sybase server as listed in your 'interfaces' file
    $ENV{'DSQUERY'}   = "server.host.name"; 
}
my (@available_drivers, $dbh, $sql_statement, $sth, @array) = ();
my $username = "dbusername";
my $password = "dbpassword";
my $dbh = DBI->connect('dbi:Sybase:', $username, $password);