#!/usr/bin/perl
require LWP::UserAgent;
require HTTP::Request;
use FindBin ;
use Net::IP;
use LWP::UserAgent;
use lib $FindBin::Bin ;

my $urlString;
$urlString="http://[2620:0:a17:e03d:250:56ff:fea4:6d]/server-status";

#Send a get request to the above URL.
my $ua;
my $response;
my $html_file;
$ua = LWP::UserAgent->new;
#print $urlString;
$response = $ua->get($urlString);
if (!$response->is_success)
{
    print "Fialed to connect to the URL $urlString \n";
    exit(0);
}