#!/usr/bin/perl
# htitle - get HTML title from file

die "usage: $0 url ...\n" unless @ARGV;

require HTML::Parser;

foreach $fyle (@ARGV) {
   $p = HTML::Parser->new;
   $p->parse_file($fyle);
   print "$url: " if @ARGV > 1;
}
