use Template;
use Benchmark qw(:all);
use strict;
use warnings;

sub doit;

my $hello_world = 'Hello, World!';

doit();
timethis(1000, \&doit);

sub doit {
    my $tt = Template->new(INCLUDE_PATH => '', CACHE_SIZE => 50);
    my $vars = {
        HELLO_WORLD => $hello_world,
    };
    $tt->process('Templates/tt_var.html', $vars);
    return 0;
}