$ENV{ 'HTTP_PROXY' } = 'http://81.29.249.17:3128';
$ENV{ 'FTP_PROXY' } = 'http://81.29.249.17:3128';
$mech = WWW::Mechanize->new();
$mech->{proxy} = {};
$mech->proxy(['http', 'ftp'], 'http://81.29.249.17:3128');