excelPerl.pl ^
    -ane "$x{$F[0]}++" ^
    -end "use Data::Dumper; print Dumper \%x" ^
    -f test.xls

excelPerl.pl ^
    -begin "use Text::CSV_XS; $csv = Text::CSV_XS->new( { binary => 1} )" ^
    -ane "$csv->combine(@F); print $csv->string, $/" ^
    -f file.xls