use Win32::OLE::Const 'Microsoft Excel';
my $Excel = Win32::OLE->GetActiveObject('Excel.Application');
####$pet is some.xls file#####
my $Book = $Excel->Workbooks->Open($pet) or die ("not opened $pet\n"); 

my $Sheet = $Book->WorkSheets("Sheet1");