#!/usr/bin/perl use strict; use warnings; use HTML::Template; my $htmlStr = <

HTML my %tbl = ( orange => 'orange', lime => 'lime', lemon => 'lemon', bannannanna => 'yellow' ); my @fruits = map {{fruit => $_, color => $tbl{$_}}} keys %tbl; my $template = HTML::Template->new(scalarref => \$htmlStr); $template->param(fruits => \@fruits); print $template->output(); ##

##

Content-Type: text/html; charset=ISO-8859-1



    
    
    
    
    
      
        lime
        lime
      
      
        orange
        orange
      
      
        lemon
        lemon
      
      
        bannannanna
        yellow