perl pm1.pl < input.txt > output.txt