#!/perl -w

use strict;
use Win32::OLE;
use Win32::OLE::Const;

my $accessConst = Win32::OLE::Const->Load('Microsoft Access 8.0 Object Library');


my $app =  Win32::OLE->new('Access.Application') or die "$!";

$app->OpenCurrentDatabase('C:/test.mdb');

$app->DoCmd->RunMacro('Macro1');
$app->DoCmd->Quit($accessConst->{'acQuitSaveNone'});