Help for this page

Select Code to Download

Select or download this

use LWP::UserAgent;

...
} else {
     print "Bad luck this time\n";
}

Select or download this

$ua->proxy("http", "http://proxy1_host:proxy1_port/ http://proxy2_host
+:proxy2_port/");

$ua->proxy("http", "http://proxy1_host:proxy1_port/"); 
$ua->proxy("http", "http://proxy2_host:proxy2_port/");