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