That just uses a special kind of string concatanation operator to append the input. It's equvilent to $_ = $_ . <TMPLFILE>;

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated