#!/usr/bin/perl
use strict;
use warnings;
use HTML::Template;
my $template_file = '<TMPL_VAR NAME="PERLCODE">';
my $t = HTML::Template->new( scalarref => \$template_file );
$t->param( PERLCODE => 'Perl code goes here' );
print $t->output;