#Thu Aug 30 18:03:31 2001
my @gmt= split ' ', scalar(gmtime);
print my $gmtime = "$gmt[0], ".( join ' ', (@gmt)[2,1,3,4]).'  0000';
#Thu, 30 Aug 2001 13:09:26  0000