#!/usr/bin/perl

use 5.010;
use strict;
use warnings;
use LWP::UserAgent;
use Data::Dumper;

my $ua=LWP::UserAgent->new();
my $resp=$ua->get("http://no.such.server.in.my.lan/no-such-page");

say $resp->status_line;
say Dumper $resp;