#!/root/localperl/bin/perl
use strict;
use Warnings;
use utf8;
use LWP::UserAgent;
use Data::Dumper;
our $URL="http://localhost";

my $ua = LWP::UserAgent->new;
my $res = $ua->get($URL);

if($res->is_success)
{
    print $res->decoded-content;
}
else
{
    die $res->status-line;
}