sub give_me_a
{
   my ($part_of_speech) = @_;

   print STDOUT "Give me a $part_of_speech: ";
   my $word = <STDIN>;
   chomp($word);
   $word;
}