BEGIN {
        use 5.8.0;
        use vars qw(@missing);

        push @INC, sub { 
                my ($coderef, $filename) = @_;

                # Ignore non-modules.
                return undef unless ($filename =~ s/.pm$//);

                # Remember the module.
                $filename =~ s/\//::/g;
                push @missing, $filename;

                # Return a dummy file handle.
                open my $FH, '<', \'1;';
                $FH;
        };
}