#!/usr/bin/perl -w
###########################################
# wsrv - Display a URL's web server
# Mike Schilli, 2005 (m@perlmeister.com)
###########################################
use LWP::Simple;
my $url = shift or die "usage $0 url";
my (@fields) = head($url) or 
    die "Fetch failed";
print "Server: $fields[4]\n";