Select Code to Download

use IO::Handle;

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

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