#!/usr/bin/perl
use strict;
use warnings;

print "How old are you?\n";
chomp (my $age = <>);
print "What is your favorite color?\n";
chomp (my $color = <>);
print "You are $age, and your favorite color is $color.\n";