my $hdate=gmtime();
 $hdate.=substr($hdate,10,9,'');
 substr($hdate,8,1,'0') if(substr($hdate,8,1) eq ' ');
 substr($hdate,3,1,','.substr($hdate,7,3,'').' ');
 return $hdate;