Select Code to Download

$dbh = DBI->connect('dbi:ODBC:DYC', '', '');

my $DSN = 'driver=Microsoft Access Driver(*.mdb);dbq=\\\\cheese\\g$\\p
+erltest.mdb';
my $dbh = DBI->connect("dbi:ODBC:$DSN", '','')
        or die "$DBI::errstr\n";