#!/tools/perl-5.8.0/bin/perl -w
use strict; use warnings; use DBI;
$ENV{SYBASE}='/tools/sybase';
my $db = DBI->connect("DBI:Sybase:dbname=booty","j","lo",
{RaiseError => 1, AutoCommit => 0 }
 ) || die "Unable to connect to database: $DBI::errstr";
print "\n All is well that ends well! \n";
$db->disconnect();
exit;