[% PERL %]
    use Data::Dumper;
    local $Data::Dumper::Indent = 1;
    print "THE STASH", Data::Dumper::Dumper($stash);
[% END %]