@months = qw(01 02 03 04 05 06 07 08 09 10 11 12);
@weekDays = qw(01 02 03 04 05 06 07);
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
$year = 1900 + $yearOffset;
$theTime = "$year$months[$month]$dayOfMonth$hour";<br>
<br>
$theOldTime = $year. $months[$month]. ($dayOfMonth -2). 
$hour;<br>
<br>
print $theTime . "\n";<br>
print $theOldTime . "\n";<br>