#!/usr/bin/perl -w

use Modern::Perl;
use strict;
use CGI qw/:standard/;
use LWP;

my $opt = ('http://');
my $url = param('url') || '';
my $product_id = ('MS-DOS/3.2');
my $agent    = LWP::UserAgent->new(agent=> $product_id);
my $ua = 'MS-DOS/3.2';
my $request  = HTTP::Request->new(HEAD => $opt.$url);
my $response = $agent->request($request);

if($url) {
&resp2;
} else {
&resp1;
}