Select Code to Download

Software error:
Could not open Excel spreadsheet file 'test.xls': Bad file descriptor 
+at /usr/lib/perl5/site_perl/5.8.6/Spreadsheet/BasicRead.pm line 306.
For help, please send mail to the webmaster (user@localhost.localdomai
+n), giving this error message and the time and date of the error.

#!/usr/bin/perl

...
   $row++;
   print join(',', $row, @$data), "\n";
}