#!perl -w
use strict;

use Template;
use Template::Plugin::Stash;

my $t = Template->new();

my $tmpl = <<'TMPL';
Name:     [% user_name %]
Password: [% user_password %]

---
[% USE Stash %]
[% USE Dumper %]
[% Dumper.dump( Stash.stash() ) %]
---
TMPL

$t->process( \$tmpl, { user_name => 'Corion', user_password => 'secret', user_email => 'corion@corion.net'}, \my $output );
print $output;