use strict;  
use warnings;  
use Win32::OLE; 
 
my $access; 
 
my $datei = "D:\\TEST\test.accdb";  
$access = Win32::OLE->GetActiveObject('Access.Application'); 
 
$access->OpenCurrentDatabase($datei); 
$access->{DoCmd}->RunMacro("Import");