#!/usr/bin/env perl
use Template;

my $tt = Template->new({ EVAL_PERL => 1 });

$tt->process(\*DATA) or die $tt->error(), $/;

__DATA__
[% PERL %]
    print "OHAI DER!";
[% END %]