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;
        };
}

##</code><code>##

INIT {
        # Check and clean up.
        die "Missing modules.\n\tcpan -i ", join(' ',' @missing), "\n\n" if (@missing);
        pop @INC;
}