Win32::OLE

For Excel:

 

To Open a Spread Sheet:

my $Excel = Win32::OLE->GetActiveObject(‘Excel.Application’)
|| Win32::OLE->new(‘Excel.Application’, \&QuitApp);

sub QuitApp
{
my ($ComObject)= @_;
print “Qitting”.$ComObject->{Name}.”\n”;
$ComObject->Quit();
}