require LWP::UserAgent;

my $ua = LWP::UserAgent->new(timeout => 10,  
                             agent   => 'subnet monitor'
                             );

my $request = HTTP::Request->new('HEAD', "http://perlmonks.org/");
my $contents = $ua->request($request); 

print $contents->{_rc} == 200 ? 
	"Webserver Up" :
	"Webserver Down";


##</code><code>##


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();
}