#!/user/bin/perl -w @words = qw(internet answers printer program); @guesses=(); $wrong = 0; $choice = $words[rand @words]; $hangman = "0-|--<<"; @letters = split(//,$choice); @hangman = split(//,$ha