# Die Usage if(($#ARGV!=0) || (! $ARGV[0]) || (!(@array))) { print "\nUsage: $0 \n\n"; foreach (@array){print "$_\n";} exit 1; }