#! /usr/bin/perl

use strict;
use warnings;
use DBI;

my $user = 'username';
my $pass = 'password';

my $dsn = 'driver=Microsoft Access-Treiber (*.mdb); dbq=db1.mdb';
my $dbh = DBI->connect("DBI:ODBC:$dsn",$user,$pass) or die $DBI::errstr;

[...]