#!/usr/bin/perl -w
use strict;

print "What is your name?\n";
chomp (my $name = <stdin>);
print "What is your age?\n";
chomp (my $age = <stdin>);
print "You are $name and your age is $age years old.\n";