die qq(usage: $0 infile outfile\n)
  unless @ARGV == 2;

my ( $infile, $outfile ) = @ARGV;
open ( IN,  "< $infile ...
open ( OUT, "> $infile ...