use DBI;
use DBD::ODBC;
use DBD::Sybase;

BEGIN {
  $ENV{SYBASE} = 'C:\Program Files\Microsoft SQL 
Server\80\Tools\BINN';
   }
   my $dbh = DBI->connect('dbi:Sybase:', 'sa', '');