[XXX@n12 p1]$ cat -n xls2csv
     1  #!/bin/perl -I/root/perl5/lib/perl5/x86_64-linux-thread-multi /root/perl5/lib/perl5/5.16.3/x86_64-linux-thread-multi /root/perl5/lib/perl5/5.16.3 /usr/local/lib64/perl5 
     2  use strict;
     3  use 5.006;
     4
     5  use lib '/root/perl5/lib/perl5';
     6  use Getopt::Std;
     7  use Locale::Recode;
     8  use Spreadsheet::ParseExcel;
     9  use Spreadsheet::ParseExcel::FmtUnicode;
    10  use Text::CSV_XS;
    11