#!/usr/bin/perl -w
######################################################################
# uahead.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

use LWP::UserAgent;

$ua = new LWP::UserAgent;

foreach $url (@ARGV) {
    $req = HTTP::Request->new('HEAD', $url);      # head request
    $response = $ua->request($req);

    if($response->is_success()) {                 # OK?
        print $response->headers_as_string(), "\n";
    } else {                                      # error?
        print $response->message(), "\n";         # error message
    }
}