# Sun, 06 Nov 1994 08:49:37 GMT ; RFC 822, updated by RFC 1123

#!/usr/local/bin/perl
@_ = localtime	and printf "%s, %02d %s %d %02d:%02d:%02d +0900\n",
	(qw/Sun Mon Tue Wed Thu Fri Sat/)[ $_[6] ],
	$_[3],
	(qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/)[ $_[4] ],
	$_[5] + 1900,
	@_[2,1,0];
__END__

#! MacJGAwk -f
BEGIN {
	TZ = Answer("Timezone:", "GMT", "+0900");
	print (strftime("%a, %d %b %Y %H:%M:%S", (systime() - (TZ != "GMT" ? 0 : 32400))), TZ);
}