#!/usr/bin/perl -w

use DBI ;
use strict;

#connect to Access file via ODBC

my $accessDSN = q(driver=Microsoft Access Driver (*.mdb);).
        q(dbq=\\\\NWKCPU\\c\$\\SubFolder\\Example.mdb);
my $dbhA = DBI->connect("dbi:ODBC:$accessDSN",'','') or die "$DBI::errstr\n";