#!/usr/local/bin/perl 
 
use strict; 
use warnings; 
use Template; 
use CGI; 
 
my $cgi = CGI->new(); 
my $tt = Template->new({ 
	INCLUDE_PATH => [ 
		'/Users/mysilmaril/Sites/WIW/templates/src', 
		'/Users/mysilmaril/Sites/WIW/templates/lib/site', 
		'/Users/mysilmaril/Sites/WIW/templates/lib/config', 
		'/Users/mysilmaril/Sites/WIW/cgi-bin', 
		'.', 
	], 
	WRAPPER => 'wrapper', 
}); 
my $input = 'cgiparams.tt'; 
my $vars = { 
	cgi => $cgi, 
}; 
 
print $cgi->header; 
 
$tt->process($input, $vars) || die $tt->error();

##</code><code>##

<tr> 
	<td colspan="2" align="center" height="200"> 
		<ul> 
			[% FOREACH p = cgi.param -%] 
				<p><b>[% p %]:</b>&nbsp;[% cgi.param(p) %]</p> 
			[% END -%] 
		</ul> 
	</td> 
</tr>

##</code><code>##

<link rel="stylesheet" type="text/css" href="css/wiw.css" />