#!/usr/bin/perl -w
#use DBI;
use DBD::Sybase;
use strict;
my $user='xxxx';
my $password='xxxx';
my $dbh = DBI->connect('DBI:Sybase:server=XXXX', $user, $password);
$dbh->{'syb_flush_finish'} = 1;
if ($dbh) { print "\nConnect OK!\n"; }
my $action = $dbh->prepare("sp_help") ;
$action->execute ;
my $rows = $action->rows ;
print "rows is $rows\n";
while ( my @first = $action->fetchrow_array ) {
foreach my $field ( @first ) {
print "$field\t";
}
print "\n";
};
$dbh->disconnect;
print "\nDisconnected!\n";
----------------------------------------
И что самое интересное без всяких переменных $ENV{SYBASE}='/usr/local/etc';