title: unable to parse xlsx with Spreadsheet::Read
body: <p>I am Trying to parse a <strong>.xlsx</strong> file using <strong><a href="http://search.cpan.org/~hmbrand/Spreadsheet-Read/Read.pm" rel="nofollow">Spreadsheet::Read</a></strong> same code works for <strong>.xls</strong> files but throws an error <strong>.xlsx</strong> below is procedure followed:</p>
  
  <ol>
  <li>We are creating a file upload(browse) button in <strong>.cgi</strong> file with name <strong>"csv_path"</strong>.</li>
  <li>when user submits the form (of course its <em>multipart/form-data</em>)</li>
  <li><p>code on next page</p>
  
  <pre><code>use CGI;
  use Spreadsheet::Read;
  use Spreadsheet::ParseExcel;
  use Data::Dumper qw(Dumper);
  
  #will catch uploaded file.
  my $fname = $query-&gt;param("csv_path");
  
  print Dumper($fname); 
  #just for confirmation we printed variable $fname
  #when .xls is uploaded $fname contains:
  #$VAR1 = bless( \*{'Fh::fh00001308_4_template.xls'}, 'Fh' );
  #when .xlsx is uploaded $fname contains:
  #$VAR1 = bless( \*{'Fh::fh00001308_4_template.xlsx'}, 'Fh' );
  
  #now read the file with "Spreadsheet::Read"
  my $data_xls  = ReadData ( $fname, "strip"=&gt;3, "dtfmt" =&gt; "mm/dd/yyyy");#here if we pass .xlsx file name(stored on server) to ReadData() it works properly.
  
  
  #print out of Spreadsheet::Read
  print "&lt;pre&gt;";
  print Dumper($data_xls);
  
  #when .xls is uploaded $data_xls comes up with all required data
  
  #when .xlsx is uploaded below error occurs
  #   XLSX parser cannot parse data: Undefined subroutine Fh::opened
  </code></pre></li>
  </ol>
  
  <p>Please suggest if any changes required or any thing missing.</p>