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