How To Obtain The Current Year In Perl Easily

Author: erics, June 29th, 2011

This simple formula will give a Y2K-compliant 4-digit year with low overhead:

$year = (localtime)[5] + 1900;

1	$year = (localtime)[5] + 1900;