#!/usr/bin/perl

use strict; 
use warnings; 

use Win32::OLE;
use Win32::OLE::Const 'Microsoft Access';
Win32::OLE->Option(Warn => 0);

my $oAccess;
my $oDatabase;

my $filename = "s:/mdbtest.mdb";  # $ARGV[0];
print $filename."\n";
$oAccess = Win32::OLE->new('Access.Application') or die qq{Couldn't start new Access instance!};

# Open Access File
$oDatabase = $oAccess->DBEngine->OpenDatabase($filename) or die qq{Couldn't open database $filename!};

$oDatabase->Run("RunTest");

print "$filename"."\n";

$oDatabase->Save;

undef $oDatabase;
undef $oAccess;
$oAccess->Quit();