sub check {
	my ($host, $port) = @_;
	my $telnet = new Net::Telnet (errmode=> 'return');
	my $return = $telnet->open(Host => $host, Port=> $port);
	unless ($return) { 	
		print "Nothing running on port $port.\n";
                return;
	}

	my $res = $telnet->getline;
	$telnet->print("HEAD / HTTP/1.0\n\n");
	$res = $telnet->getline;
	if ($res =~ /200 OK/) {
		print "Webserver Up\n";
	} else {
		print "Webserver Down\n";
	}
	$telnet->close();
}