BEGIN { $ENV{HTTP_proxy}="http://10.2.7.11:8080" } use LWP::Simple; #### use LWP::Simple qw($ua); $ua->proxy([qw(http ftp)], 'http://10.2.7.11:8080');