I have bookmarked this, because it does some things I find interesting. I find that it's a little windows centric though. You might (or perhaps I might) benefit from using some things like File::Find, Getopt::Std, or Getopt::Long to make it so I can specify the location of the images and so the windows dirnames don't cause trouble on my linux box.

(I also think this node might have gone under the code section, but I don't feel strongly enough about it to "consider" the node.)