use strict;
use warnings;
use CGI;
use HTML::Template;
use Color::Spectrum qw(generate);

my $cgi  = CGI->new;
my $tmpl = HTML::Template->new( filehandle => \*DATA, associate => $cgi );
my $vars = $cgi->Vars;

if ($vars->{go}) {
    my @colors = map { c => $_ }, generate( 12, @{$vars}{qw(start end)} );
    $tmpl->param( colors => \@colors );
}

print $cgi->header, $tmpl->output;

__DATA__
<form method="post">
Color 1: <input type="text" name="start" value="#" /><br />
Color 2: <input type="text" name="end" value="#" /><br />
<input type="submit" name="go" />
</form>
<tmpl_if go>
<table width="100%">
<tr>
<tmpl_loop colors><td bgcolor="<tmpl_var c>"><tmpl_var c></td></tmpl_loop>
</tr>
</table>
</tmpl_if>