my $Excel = Win32::OLE->GetActiveObject('Excel.Application') ||
               Win32::OLE->new('Excel.Application');
 $Excel->{'Visible'} = 0;		
 $Excel->{DisplayAlerts}=0;
 print " till this all fine";
my $Book = $Excel->Workbooks->Open("C:\\devtools\\one.xlsx");
 print " control does not reach here";