Old style text adventure game in pure Perl