use strict; use warnings; use Inline qw(TT); print test( HOME => $ENV{HOME}, PATH => $ENV{PATH}, ); __END__ __TT__ [% BLOCK test %]
My Path is set to [% PATH %] [% END %]