my $input_file  = shift @ARGV;
my $output_file = shift @ARGV;

die "Usage: $0 INPUT OUTPUT\n"
  unless defined $input_file && defined $output_file;