#!/usr/bin/perl -w

use CGI qw/:standard/;
use LWP::UserAgent;

$agent = LWP::UserAgent->new;

$url = param('URL');

print header,start_html('MyNetcraft');
print"<p>URL: $url\n";

if ($url !~ /^(?:ftp|http|https)\:\/\/([\w-]+\.)+(\w)+$/) {
	print "no match\n";
	exit;
}

$request = HTTP::Request->new('HEAD',$url);

$response = $agent->request($request);

print "<p>=== Response ===<br><br>";
print $response->headers->server;

print end_html;