print "What is your name? ";
  my $name = <>;
  chomp $name;
  print "What is your quest? ";
  my $quest = <>;
  chomp $quest;
  print "Good luck, $name! May you $quest\n";