sub time {
  my $thistime = shift;
  my @a = gmtime($thistime);   
  return sprintf "%s, %02d %s %04d, %02d:%02d:%02d",
    (qw(Sun Mon Tue Wed Thu Fri Sat))[$a[6]],
    $a[3],
    (qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec))[$a[4]],
    1900+$a[5],@a[2,1,0];
}