...
   $scriptname = ...                            # the scripts name
  (my $srv = $ENV{SERVER_NAME}) =~ s/\..+//;    # where are we now
   my $srvloc = "/srv/web/$srv/html";           # assume directory

   # prepare HTML output
   my $template = HTML::Template->new(filename => "$srvloc/cluster/$scriptname.htm");
   ...

##</code><code>##

  ...
   <td class="pid">
     <TMPL_IF idproc>
     <a href="/cgi-bin/myprocess.pl/ii/<TMPL_VAR NAME="host">/<TMPL_VAR NAME="pid">" 
        title="[pid No.]"><TMPL_VAR NAME="pid">&nbsp;
     </a>
     </TMPL_IF>
   </td>
  ...

##</code><code>##

 <TMPL_VAR NAME="varname">

##</code><code>##

   ...
   $template->param( 
         host       => $host,  
         cpuid      => $cpuid,
         cpuidcolor => $cpuidtab{$cpuid}
   );
   ...
   ...
   print "Content-type: text/html\n\n", $template->output;