Help for this page

Select Code to Download


  1. or download this
    print "\nHow old are you?: ";
$age = <STDIN>;
$year = 2017 - $age;
print "You were born in $year\n"
  2. or download this
    How old are you?: 50
You were born in 1967