my $year = (localtime())[5];
print "The year is 19$year\n";

##</code><code>##

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