Write an online text adventure game in perl