[% INSERT header.html %] [% PERL %] my @colors = qw(Red Green Blue); my %defaults = ( BGCOLOR => 'FFFFFF', TEXT => '000000', LINK => '0000FF', ALINK => 'FF0000', VLINK => 'AA0000', ); my @types = keys %defaults; $stash->set(types => \@types); $stash->set(colors => \@colors); $stash->set(defaults => \%defaults); [% END %] [% IF params.submit %] [% INCLUDE rgb2hex.html %] [% ELSE %] [% INCLUDE form.html %] [% END %] [% INCLUDE footer.html %]