#!/usr/bin/perl

$f = shift(@ARGV);
open(IN, "identify $f|") || die $!;
$l = <IN>;
($width, $height) = ($l =~ / (\d+)x(\d+) /);
print "      <a href=\"wf199908/$f\">\n";
print "      <img src=\"wf199908/small/$f\" align=right alt=\"???\" border=0 width=$width height=$height></a></dt>\n";