use strict; use warnings; use Win32::OLE; my $xl = Win32::OLE->GetActiveObject('Excel.Application'); my $wb = Win32::OLE->GetObject("z:\\data\\perl\\mogul\\sillysums2.xls"); my $value = $wb->Sheets("Params")->Range("zReportTo")->{Value}; print "$value\n";