#!/opt/perl/5.8.0/bin/perl
use lib "/home/myhome/lib";
use DBI;
use DBD::ODBC;
@ary = DBI->installed_drivers;
print "@ary";
my ($data_source, $database, $userid, $password) =
  qw( db_1:blah.pp.ns.net;5000 db_1 read readP);
my $connect_string = "driver={SQL Server};Server=$data_source;Database=$database;UID=$userid;PWD=$password";

my $dbh = DBI ->connect ( "$connect_string" )
        or die $DBI::errstr;
my $sql = "select getdate()";

my $sth = $dbh->prepare ( $sql );

$sth->execute;
$dbh->disconnect ();