my $infile = shift;
open(my $in, "<", $infile) or die "Failed to open $infile: $!";
my $outfile = shift;
open(my $out, ">", $outfile) or die "Failed to open $outfile: $!";