use strict;
use warnings;
use Win32::OLE;

my $oAccess;
my $oDatabase;
my $filename = "C:\\mydb.accdb";

$oAccess = Win32::OLE->GetActiveObject('Access.Application');
$oAccess->OpenCurrentDatabase($filename);
#$oAccess->{DoCmd}->RunCommand(myfunction());
#$oAccess->{DoCmd}->RunCommand("myfunction()");
$oAccess->{DoCmd}->RunCode('myfunction()');