Select Code to Download

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