use LWP::Simple qw(&getstore $ua);

$ua->proxy(http => 'http://www.tau.ac.il/tau.pac');

my $url='http://www.yahoo.com';
my $file='test.html';
print "success" if (getstore($url, $file));

##</code><code>##

use LWP::UserAgent;

open WFH, ">test.html" or die($!); 
 
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0");
$ua->env_proxy;
$ua->proxy('http', 'http://www.tau.ac.il/tau.pac');
$ua->timeout(10);

my $response = $ua->get('http://search.cpan.org/');


if ($response->is_success) {
    print WFH $response->content;
    } else {
    die $response->status_line;
    }