print qq~
Content-type: text/html
... (more headers)

(body)
~;

##</code><code>##

print <<EOT;
Content-type: text-html
... (more headers)

(body)
EOT

##</code><code>##

print qq~Content-type: text-html
...
(more headers)

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

my $url = shift;
die "Usage: $0 URL\n" unless($url);

my $response = $ua->get($url);

die $response->status_line, $/
    unless ($response->is_success);

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