Select Code to Download

#!/usr/bin/perl -w

use strict;
...
} while ($answer ne $guess);

print "You figured it out in a mere $guesses guesses\n";

while (<>) {
...
}