#!perl use strict; use warnings; use Win32::OLE qw(in with); # get already active Excel application or open new my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit'); print "Perl $] Win32::OLE Version ${Win32::OLE::VERSION}\n"; print "Running Excel $Excel->{'Version'} on $Excel->{'OperatingSystem'}\n";