#!/usr/bin/perl

# htitle -- get html title

# orig by Gisle Aas, hacked up by 
# Tom Christiansen for delayed loading
# for faster error messages and for multiurl handling.

die "usage: $0 url ...\n" unless @ARGV;
require LWP;
LWP->import(5.00);

foreach $url (@ARGV) {
    $ua = new LWP::UserAgent;
    $res = $ua->request(HTTP::Request->new(GET => $url));
    print "$url: " if @ARGV > 1;
    print $res->title, "\n";
}