use IO::Handle;

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