A text-based game coded in Perl by KC McLaughlin