(jeffa) Re: Simple WebServer Scanner

[jeffa]

Hmmmm . . . let's get the with times, eh? ;)

use strict;
use warnings;
use LWP;

my $url = shift || 'localhost';
$url    = "http://$url";

my $agent    = LWP::UserAgent->new();
my $request  = HTTP::Request->new(HEAD => $url);
my $response = $agent->request($request);

print $response->{_headers}->{server}, "\n";

jeffa