print "How old are you? ";
my $age = <>;
print "You are $age.";