#!/usr/bin/perl

use strict;
use warnings;
use Template;

my $tt = Template->new;

$tt->process(\*DATA, { rand => sub { rand } })
  or die $tt->error;

__END__
A Random number: [% rand %]