#!/usr/bin/perl require HTML::Template; my $ht=new HTML::Template(filename=>'test.tmpl'); $ht->param(testloop=>[{},{}]); print "Content-type: text/html\n\n"; print $ht->output; warn "_____TEST_____\n"; ##

##