use Win32::OLE;

# check your registry for which version DBEngine to use
my $dao = Win32::OLE->new('DAO.DBEngine.36', 'quit') or die "$!";
$dao->CompactDatabase('c:\\test.mdb', 'c:\\test2.mdb');