my ($mday, $mon, $year, $wday) = (localtime)[3..6];
$mon  += 1;
$year += 1900;

##</code><code>##

$year =~ s/^\d\d//;