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();
}