use strict; use warnings; use Inline qw(TT); print test( HOME => $ENV{HOME}, PATH => $ENV{PATH}, ); __END__ __TT__ [% BLOCK test %] Test Template My Home Directory is [% HOME %]

My Path is set to [% PATH %] [% END %]