#!/usr/bin/perl

use strict;
use LWP::UserAgent;

my $ua;
my $req;
my $res;

$ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);

#REQUEST

$req = HTTP::Request->new(GET =>'http://SOMEURLHERE');

#PASS REQUEST

$res = $ua->request($req);

#GET RESULTS


if($res->is_success)
{
   print $res->content;
}
else
{
   print "No response\n";
   print $res->status_line . "\n";
}