@ARGV or die Usage();
my( $infile, $outfile ) = @ARGV;