print "What is your name? ";
my $name = <STDIN>; chomp $name;

print "What is your quest? ";
my $quest = <STDIN>; chomp $quest;

print "What is your favorite color? ";
my $color = <STDIN>; chomp $color;