Help for this page
#!/usr/bin/perl -w use strict; ... } while ($answer ne $guess); print "You figured it out in a mere $guesses guesses\n";
while (<>) { ... }