A number guessing game I wrote on a Saturday night in Perl.