#!/usr/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::shell(); #### 'ncftpget' => q[/bin/false], 'ftp' => q[/bin/false], 'lynx' => q[/bin/false], #### 'http_proxy' => q[10.10.10.10:8000], 'proxy_pass' => q[myPassWord], 'proxy_user' => q[myUser],
## 'ncftpget' => q[/bin/false], 'ftp' => q[/bin/false], 'lynx' => q[/bin/false], ##
## 'http_proxy' => q[10.10.10.10:8000], 'proxy_pass' => q[myPassWord], 'proxy_user' => q[myUser],