    <pre>[% dump %]</pre>


##</code><code>##

use strict;
use CGI;
use Template;
use constant DEBUGGING => 1;
$|++;

my $query    = CGI::->new;
my $template = Template->new( {
    INCLUDE_PATH => '..\templates',
    ABSOLUTE     => 1
} );

my $data =
{
    one => 1,
    two => 'foo',
    bar => [qw/ baz qux Ovid/]
};

if ( DEBUGGING )
{
    require Data::Dumper;
    require HTML::Entities;
    $data->{ dump } = 
        HTML::Entities::encode_entities( Data::Dumper::Dumper( $data ) );
}

print $query->header;
$template->process( 'some.tmpl', $data )
    or dienice $template->error();