http://www.perlmonks.org?node_id=651863


in reply to resolved: Converting code to use DATA filehandle instead of external templates

You just need to setup a DATA block and pass through filehandle => *DATA to HTML::Template
#!/usr/bin/perl use warnings; use strict; use HTML::Template; #------------ package Page; use base 'HTML::Template'; sub new { my $self = shift; my %args = @_; $self->SUPER::new(%args); } #------------ package main; my $template = Page->new(filehandle => *DATA) || die "Unable to open template"; $template->param(orb => 'world'); print $template->output; __DATA__ hello <TMPL_VAR orb>