my $game = Game::Adventure->new($file) #file provides data

while (<>) {
    print $game->($_);
}