#!/usr/bin/perl

print "Content-type: text/html\n\n";

opendir CARD_DIR, "../cards/images";
while ($_ = readdir CARD_DIR) {
  next unless /^(.+?)\.png$/;
  print "<IMG ALT=\"$1\" SRC=\"http://www.yark.org/cards/images/$_\">\n";
}
closedir CARD_DIR;