my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
    || Win32::OLE->new('Excel.Application', 'Quit');  

my $Book;
    $Excel->{Visible} = 1 ;

	 print "$fileName \n" ;
	   unless ($Book = $Excel->Workbooks->Open("$fileName") ) {
        print  "can't open spreadsheet $fileName \n" ;
  }