Select Code to Download

#!/usr/bin/perl
 use XML::Writer;
...
  $writer->endTag("FIXML");
  $writer->end();
  $output->close();

#!/usr/bin/perl -w

...
print "Perl recognized the following data (sheet/row/column order):\n"
+;
print Dumper( $storage_book );
print "Excel Content read successfully!\n";