#!/usr/bin/perl use strict; use Template; my $template = new Template; my $file = 'tt/template.html'; my $data = { env => \%ENV, }; print "Content-type: text/html\n\n"; $template->process($file, $data) || die $template->error; ##

##











	

[% foreach thing in env.keys.sort %]
	
	{% thing %}:[% env.thing %]
	
[% end %]






##

##

# perl template.pl
Content-type: text/html

file error - parse error - tt/template.html line 12: unexpected token (thing)
  [% foreach thing in env.keys.sort %]


##

##


[% get env %]