#!/perl/bin/perl -w

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

use strict;
use warnings;

use DBI;

system('echo %SYBASE%');
my $dbh = DBI->connect('dbi:Sybase:server=myserver',
                       'user',
                       'password'
                      ) or die "could not connect";

# die message cut down here for shortness.

##</code><code>##

The context allocation routine failed when it tried to load localization files!!<br>
One or more following problems may caused the failure<p>

Your sybase home directory is as. Check the environment variable SYBASE if it is not the one you want!<br>
Cannot access file as\ini\objectid.dat<br>
install_driver(Sybase) failed: DBD::Sybase initialize: cs_ctx_alloc() failed at C:/Perl/lib/DynaLoader.pm line 225.<br>
Compilation failed in require at (eval 1) line 3.