#!/usr/bin/perl
use strict;
use warnings;
print "How old are you?";
my $age = <>;
print "What is your favorite color?";
my $color = <>;
print "You are $age, and your favorite color is $color.";