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