#!/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.