sub showCat
{
  my ($cat) = @_ if @_;
  local (*DIR, *HTML);
  my (@piclist);
  my ($pic, $template, $__atom__, $__catname__);
  my ($i) = 0;


  [...]

  $__atom__ .= '</table>';
  $template =~ s/\$(\w+)/${$1}/g;
  print $template;

}