#!/usr/bin/perl --
BEGIN {
    use IO::File;
    package IO::Handle;
    use overload '-X' => sub {
        warn 'abracadabra';
        stat@_;
    };
    *IO::Handle::stat = sub { warn "hi walter"; stat(@_); };
    
}

open my($fh), '<', __FILE__;
print '-e ', -e $fh, "\n";
print '-f ', -f $fh, "\n";
print '-d ', -d $fh, "\n";
print 'stat ', stat $fh, "\n";
print $fh, "\n";
close $fh;
print "$_\n" for keys %INC;
__END__
-e 1
-f 1
-d
stat 00332061000745131287651313128765131312876169
GLOB(0x3f8adc)
warnings/register.pm
XSLoader.pm
IO/Handle.pm
SelectSaver.pm
IO/Seekable.pm
warnings.pm
Fcntl.pm
IO.pm
Symbol.pm
Carp.pm
File/Spec/Unix.pm
strict.pm
Exporter.pm
vars.pm
File/Spec.pm
IO/File.pm
overload.pm
File/Spec/Win32.pm