my $myPlace = cwd();
my $filename = join('/',$myPlace,'test.xls'); 
my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || 
Win32::OLE->new('Excel.Application', 'Quit');  
my $Book = $Excel->Workbooks->Open($filename);
$Excel->Run("MyMacro");
$Book->Close;