title: Reading XLS file using Perl
body: <p>This is my Perl script </p>
  
  <pre><code>#!/usr/bin/perl -w
  use strict;
  use warnings;
  
      use Spreadsheet::WriteExcel;
      use Spreadsheet::ParseExcel;
      my $workbook   = Spreadsheet::ParseExcel-&gt;new("/home/Admin/Desktop/RP_processed_Address_withsubscriptionID (1).xls");
      my $workbook1 = Spreadsheet::WriteExcel-&gt;new("/home/Admin/Desktop/new.xls");
      open(my$old, '&lt;', "$workbook") or die "oops!";
      open(my$new, '&gt;', "$workbook1") or die "ooops!";
      while (my$line = &lt;$workbook&gt;) {
          print $workbook1 $line
  
      }
  </code></pre>
  
  <p>When I run this Script I'm getting following error </p>
  
  <pre><code>Odd number of elements in hash assignment at /usr/local/share/perl5/Spreadsheet/ParseExcel.pm line 167.
  oops! at sample.pl line 9.
  </code></pre>
  
  <p>I'm not getting any idea where is script is going wrong . Please help me how to resolve this error 
  your suggestions will be appreciable.</p>