my $mech = WWW::Mechanize -> new(); 
$mech -> http_proxy ( "Your_proxy_address:proxy_port" )

##</code><code>##

use LWP::Debug qw(+);