2 adelante:
10x, попробую..
2 Crazy:
big 10x
-----
кому не хватит гениального ответа Крэйзи.. тут полный
#!/usr/bin/perl
use LWP::UserAgent;
print "Content-type: text/html\n\n";
require LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->proxy(['http', 'ftp'], 'http://192.0.1.2:8080');
$req = new HTTP::Request('GET' => 'http://www.google.com');
$res = $ua->request($req);
$content = $res->content;
$res = $ua->request($req);
if($res->is_success) # успешно выполненный запрос
{
print $content;
}