#!/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;