#!/usr/bin/perl -w
use Win32::OLE;

my $obj = Win32::OLE->CreateObject("Access.Application");

$obj->DBEngine->CompactDatabase("c:\\temp\\junk.mdb","c:\\temp\\foo2.mdb");

1;