!/usr/local/bin/perl -w
#

use DBIx::AnyDBD;
use strict;
my $db=DBIx::AnyDBD->connect("dbi:Sybase:$database","dba","sql");
my $database = "FirstAm.bdb";
my $data_source = "DBI:AnyDBD:$database";
my $username = "UID=dba;PWD=sql;ENG="Foc_SageNet";
my $dbh = DBI->connect( $data_source, $username, '' );
or die "Can't connect to $data_source: $dbh->errstr\n";
$dbh->disconnect;
exit(0);
[download]