use Tie::Handle::Scalar; unshift @INC, sub { tie *FH, "Tie::Handle::Scalar", ""; # or "1;\n" #$INC{$name} = undef; # or $name. testing return (*FH); }