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