A simple interactive text adventure game written in perl