## place before use O 'Deparse'/-MO=Deparse
BEGIN {
  unshift @INC => sub {
    ## 'empty' should be a valid module 
    open(F, "empty") and return *F
      if $_[1] =~ /O.pm|B.pm/;
  };
}