die "usage : prog foo bar\n" unless (@ARGV == 2) ;

my ($infile, $outfile) = @ARGV ;