#! perl --
BEGIN {
    package OOO;
    sub new      { my( $pkg, $path ) = @_; bless \$path, $pkg; }
    sub filetest { warn "its fake @_\n"; 'fake' }
    use overload '-X' => \&filetest, fallback => 1;
    $INC{'OOO.pm'} = __FILE__;
}
use strict; use warnings;
use OOO;
-f OOO->new('.');

##</code><code>##

22:15 >perl 804_SoPW.pl
its fake OOO=SCALAR(0x1c15434) f

22:19 >