#!/usr/bin/perl

require HTML::HeadParser;

local( $/ );
foreach ( @ARGV )
	{
	open my( $fh ), "<", $_ or do { warn "$!"; next };
	my $p = HTML::HeadParser->new;
	$p->parse( <$fh> );
	
	print "$_: ", $p->header( 'title' ), "\n";
	}