print sprintf "Date: %s, %02d %s %04d %02d:%02d:%02d GMT",
      $days[$date[6]], $date[3], $month[$date[4]], $date[5]+1900, 
      $date[2], $date[1], $date[0];