Help for this page
#!/usr/bin/perl -w ... $worksheet->write($.-1, 0, [split]) while <INPUT>;
#!/usr/bin/perl -w ... close( FH ); }