unshift( @INC, sub {
    my ( $self, $path ) = @_;
    $path =~ s#/#::#g;
    $path =~ s/\.pm$//;
    print "INC: $path\n";
    return undef;
} );