#!/usr/bin/perl

print "What is your name?\n";
my $name = prompt_for_input();

print "What is your mission?\n";
my $mission = prompt_for_input();

print "What is your favorite color?\n";
my $color = prompt_for_input();

print "Your name is $name, your mission is $mission, and your favorite color is $color. Have a nice day!\n";

sub prompt_for_input {
    local ($|) = (1);
    my $resp = <STDIN>;
    chomp $resp;
    return $resp;
}