use LWP::UserAgent;
my ($strHttpURL)='https://machinename;
$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET =>$strHttpURL);
$res = $ua->request($req);

if ($res->is_success) {
print ("$strHttpURL connected successfully");
return $TRUE;
}
else{
print "$strHttpURL not connected");
}