open(my $fh, "<", "input.txt") or die "cannot open < input.txt: $!";
open(my $fh, ">", "output.txt") or die "cannot open > output.txt: $!";