Help for this page

Select Code to Download


  1. or download this
    print qq~
Content-type: text/html
...

(body)
~;
  2. or download this
    print <<EOT;
Content-type: text-html
...

(body)
EOT
  3. or download this
    print qq~Content-type: text-html
...
(more headers)
  4. or download this
    #!/usr/bin/perl

...
    unless ($response->is_success);

print $response->headers_as_string, $/, $response->content;