Select Code to Download

sub conn {
    my $dbistring;
...
    my $dbh = DBI->connect($dbistring . shift) or die "C ", $DBI::errs
+tr;
    return $dbh;
}

use DBI;
use Path::Tiny 'path';
...
my $dbname = path '//server/share/whatever/it is.mdb';
$dbh = conn $dbname->canonpath;
...