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";