use strict;
use DBI;

BEGIN {
   $ENV{SYBASE}='c:\sybase'
}

print "$ENV{SYBASE}\n";
my $dbh=DBI->connect('DBI:Sybase:server:FOOBAR','foo','bar');
use Data::Dumper;
print Dumper($dbh);

exit(0);