#!perl -w
use strict;
use DBI;
my $dsn = "some system DSN or DSN-less connection";
my $dbh = DBI->connect( 
    "dbi:ODBC:$dsn",'me','mypass',{RaiseError=>1}
);
# ...