sub date_r {
my ($day, $mon, $str);
my (@lt) = ();

@lt     = localtime();
$day    = $lt[6];
$mon    = $lt[4];

$str = $DAYS[$day] . ", " . $lt[3] . " " . $MON[$mon] . " " . ($lt[5]+1900)
. " " . sprintf("%02d:%02d:%02d", $lt[2], $lt[1], $lt[0] )
. " " . sprintf("%03d%02d", (tz_offset() / 3600), 0);

return $str;
}