use strict;
use LWP::Simple;

print "URL: ";
chomp(my $url = <STDIN>);

my (undef, undef, undef, undef, $server) = head($url);

print "Server: $server\n";