#!/appl/my/perl/bin/perl

use CPAN();

$CPAN_has_usable = \&CPAN::has_usable;

local *CPAN::has_usable = sub {
    return if $_[1] =~ /^(?:Net|LWP)/;
    return $CPAN_has_usable->( @_ );
};

$CPAN::Config->{wget} = "/usr/sfw/bin/wget";

CPAN::shell();