open (TABLE, "anntable.txt");
while (<TABLE>) {
  ($number,$date,$title) = split(/\|/);
  $page = "v2k-pages/v2k-$number.html";
print "generating page $page\n";
  open(PAGE,">$page");
  print PAGE <<EOF;
<TITLE>$date:  $title</Title>
<CENTER><img src="../v2k-images/v2k-$number.jpg"></Center>
<FONT Color="Blue" Face="Arial">
<CENTER><H3><I>$title</I></H3></Center>
EOF
  close(PAGE);
}
close (TABLE);