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);

##</code><code>##

perl test.pl
c:\sybase
install_driver(Sybase) failed: DBD::Sybase initialize: cs_ctx_alloc() failed at
C:/Perl/lib/DynaLoader.pm line 225.
Compilation failed in require at (eval 1) line 3.
 at test.pl line 11