$ perl hangman.pl -------- Your Guess: I -------- O Your Guess: P P------- O Your Guess: a P------- O / Your Guess: s P------- O /| Your Guess: d P------- O /|\ Your Guess: f P------- O /|\ / Your Guess: g O /|\ / \ Sorry, the word was Printer .