#!/usr/bin/perl

while(<>)
{
  chomp;
  if(/\.jpg$/)
  {
    printf("<a href=\"javascript:popevent('%s')\"><img src=\"th/%s\" border=\"0\" alt=\"\"></a>\n", $_, $_);
  }
}