sub printForm{
   @ParseFile = split //,"$FILENAME";
   $Path = "$ParseFile[0]/$ParseFile[1]/$ParseFile[2]";
   if (! -e "http://www.surnameweb.org/registry/$Path/$FILENAME") { 
      print "<p align=\"center\"><A HREF=\"http://www.surnameweb.org/registry/$Path/$FILENAME\">$CRITERIA</A>";
   }
   else{
      print "\n";
   }
}