#!/usr/bin/perl -w

# wtest.pl
# 2002-04-16  ybiC

$|++;
require 5;
use strict;
use LWP::UserAgent;

my $site = shift;
my $url  = new URI::URL($site);
my $req  = new HTTP::Request('GET', $url);
my $ua   = new LWP::UserAgent;
my $resp = $ua->request($req);
if ($resp->is_success) {
  # print $resp->content;
  print "Received response from $site\n";
}
else { print "Error: ", $resp->message, "\n\n"; }