use strict;
use warnings;
use HTML::Template;
my $app = sub {
my $htmlFile = genHTML_File();
my @options = map {{value => $_}} 'happy', 'sad', 'worrried';
my $tplt = HTML::Template->new(filename => $htmlFile);
$tplt->param(options => \@options);
return [200, ['Content-Type' => 'text/html'], [$tplt->output()]];
};
print $app->()[2][0];
sub genHTML_File {
my $filename = 'delme.html';
open my $outHTML, '>', $filename or die "Can't create '$filename': $!\n";
print $outHTML <