use IO::Handle;

# ...
F->untaint == 0 or die "Untainting filehandle failed: $!\n";
# ...

##</code><code>##

($tmpl) = $tmpl =~ /(.*)/s;