Select Code to Download

  binmode(STDOUT);
  $html = ...;
  print "Content-Type: text/html\r\n",
        "Content-Length: ", length($html), "\r\n\r\n",
        $html;

  $html = ...;
  print header(-content_length => length($html)), $html;