perl script.pl < answer.txt