defined(my $infile  = shift) || die usage();
defined(my $outfile = shift) || die usage();