use strict; use HTML::Template; my $name = 'Mr. Anderson'; my $data = do {local $/; }; my $tmpl = HTML::Template->new( scalarref => \$data, ); $tmpl->param( name => $name, ); print $tmpl->output; __DATA__ Content-type: text/html Hello !