#!/usr/bin/perl -w
foreach $infile(@ARGV){
    local(*FH, *FOUT);
	open( FH, $infile ) or die "could not open file $infile\n";
	$outfile = $infile;
	$outfile =~ s/_in//;
	open( FOUT, ">$outfile" ) or die  "could not open file $outfile\n";
	@lines = <FH>; #slurp.
	foreach $l(@lines){
		print FOUT $l; ##no chomp
		if($l =~ m/<meta\:\s([^>]+)>/){
			print "found: $1\n"; 
			print FOUT "<tr><td>\n"; 
			print FOUT "<b>$1</b>\n"; 
			print FOUT "</tr></td>\n";
			print FOUT "<tr><td>\n"; 
			print FOUT "<img src=\"resize_10/$1.jpg\">\n"; 
			print FOUT "</tr></td>\n"; 
			print FOUT "<tr><td>\n"; 
			print FOUT "<a href=\"resize_25/$1.jpg\">quarter size</a>  \n"; 
			print FOUT "<a href=\"resize_50/$1.jpg\">half size</a>  \n"; 
			print FOUT "<a href=\"fullsize/$1.jpg\">full size</a>  \n"; 
			print FOUT "</td></tr>\n"; 
		}
	}
}