Template Toolkit

[CPAN]

#!/usr/bin/env perl  
use strictures;  
use Template qw();  
  
my $tt = Template->new;  
my $vars = { name => 'Struppi'};  
$tt->process(\*DATA, $vars) or die $tt->error;  
  
__DATA__  
  
Hallo [% name %]!