use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3; 
my $Excel=Win32::OLE->GetActiveObject('Excel.Application')
$excelfile= "C:/perlpractice/simple.xlsm";  
$Book=$Excel->Workbooks->Open($excelfile);
$Sheet=$Book->Worksheets(1);