@DoW = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
@MoY = ('Jan','Feb','Mar','Apr','May','Jun',
	'Jul','Aug','Sep','Oct','Nov','Dec');

$TZ = "GMT";
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime(0); #seconds after epoch

$year += 1900;
$date = sprintf("%s %s %02d %2d:%02d:%02d %.3s %4d\n",
  $DoW[$wday], $MoY[$mon], $mday, $hour, $min, $sec, $TZ, $year);

print ("$date\n");