Select Code to Download

#!/usr/local/bin/perl5 

...
unless (@FileList) {push @FileList,"-";}

    print " @FileList\n";

</CODE
If you run this:
<CODE>
exfields.pl -e Name,Rank,SerialNumber file.gz

Name,Rank,SerialNumber

exfields.pl -e Name,Rank,SerialNumber file.gz | Who,What,Where another
+file.gz

print "@FileList_1\n";   #prints "Name" "Rank" SerialNumber"
print "@FileList_2\n";   #prints "Who" "What" "Where"