use Win32::OLE;  
$Excel = Win32::OLE->GetActiveObject ('Excel.Application')|| Win32::OLE->new('Excel.Application', 'Quit');                              
$Book = $Excel->Workbooks->Open($restrictfile) ;      
 my $Sheet = $Book->Worksheets(1);