use strict;
use warnings;
use Win32::OLE;

my $access = Win32::OLE->new('Access.Application') or die "oops\n";
my $database = Win32::OLE->GetObject("C:\\Northwind.mdb");