my $t = HTML::Template->new(filename => q{tmpl.html});

$t->param(
  input_field => get_input_field(),
);

print $t->output;

sub get_input_field{
  # do something with YAML
}