#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

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 {                                      # Fehler?
        print $response->message(), "\n";         # Fehlermeldung
    }
}