#!/usr/local/bin/perl -w
# Note: The 'na' specified as the value for the password param, is ignored
# by the ASA DBD driver but, DBI requires something in the field.
#
use DBI;
use strict;
my $database = "asademo";
my $data_source = "DBI:ASAny:$database";
my $username = "UID=dba;PWD=sql;ENG=asademo";
my $dbh = DBI->connect( $data_source, $username, 'na' );
#or die "Can't connect to $data_source: $dbh->errstr\n";
$dbh->disconnect;
exit(0);
__END__