for my (grep -d, glob "*") {
  (my $mod = $_) =~ s/-/::/g;

  my ($latest) = sort { $b <=> $a } map /.*-(\d+\.?\d*)/, glob "$_/*";
  my $what = "";

  open README, "< $_/$_-$latest/README";
  while (<README>) {  # AGH!  THIS KILLED MY OLD $_
    ($what) = /$mod - (.*)/ and last;
  }
  close README;

  print "<h2><tt>$mod $latest</tt></h2>\n";
  print "<b>\u$what</b>\n";
  print "<ul><li><a href='$_/$_-$latest/'>Documentation</a> and source\n";
  print "<li><a href='$_/$_-$latest.tar.gz'>Download</a></ul>\n";
}