#!/usr/bin/perl
use warnings;
use strict;
BEGIN {
       $ENV{SYBASE} = 'C:\\sybase';
   }
use DBI;
...
...