Help for this page
my $year = (localtime())[5]; print "The year is 19$year\n";
my $year = (localtime())[5]; print "The year is " . 1900+ $year . "\n";