#!/usr/bin/perl -T use strict; use warnings; use CGI qw(header param); use HTML::Template; my $tmpl = HTML::Template->new(filehandle => \*DATA); $tmpl->param(html => param('html')); print header, $tmpl->output; __DATA__ textarea test