[% tr.tr("Hello World") %]

<h1>[% tr.tr("Hello World") %]</h1>
<p>[% tr.tr("Your new username is") %][% tr.quote(username) %]</p>

##</code><code>##

package PageCamel::Web::TT::Translate;

...
use base qw(Template::Plugin);
use Template::Plugin;
use Template::Exception;

sub load($class, $context) {
    my $self = bless {
    }, $class;

    return $self;
}

sub new($self, $context) {
    return $self;
}

sub tr($self, $data) {

    return $data if($data eq '');

    my $lang = $self->getLang;
    my $trans = tr_translate($lang, $data);

    return $trans;
<}
...

##</code><code>##

use Template;
...
my $tt = Template->new({
    PLUGINS => {
        tr => 'PageCamel::Web::TT::Translate',
    },
});