Code:
use Win32::OLE qw(in with); use Win32::OLE::Const; use Win32::OLE::Variant; use Data::Dumper; use Win32::NetResource my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application','Quit'); print $Excel->{Version}; my $Book = $Excel->Workbooks->Add()