sub my_own_loader {
    my ($self,$file) = @_;
    open my $fh, "<", "my/private/dir/$file"
        or return;
    $fh
};

BEGIN {
    unshift @INC, \&my_own_loader;   
};

use Foo::Bar;
use The::Net;