sub getHttp() {
	my $ip = shift;
	my $args = shift;
	my $status;
	
	my $url = "http://" .  $ip . "/" . $args;
	
	#print ("accessing " . $url . "\n");
	# set custom HTTP request header fields
	my $req = HTTP::Request->new(GET => $url);
	 
	my $resp = $ua->request($req);
	if ($resp->is_success) {
		my $message = $resp->decoded_content;
		#print "Received reply: $message\n";
		$status = $resp->decoded_content;
	} else {
		print "HTTP GET error code: ", $resp->code, "\n";
		print "HTTP GET error message: ", $resp->message, "\n";
		$status = $resp->message;
	}
	
	return $status
}