use strict;
use warnings;
use DBI;

my $dbh = DBI->connect('dbi:Sybase:timeout=10;server=MSSQL2000;database=protec', 'sa', $ENV{PASS});
my $sth = $dbh->prepare("select count(*) from Clients");
$sth->execute;
print $sth->fetchrow;
print "\n";