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

my $res = LWP::UserAgent->new()->get('http://www.somesite.com/');
print "return code = ", $res->code(), "\n";
print "msg = ", $res->message(), "\n";