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