#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();

if ($mech->can("http_proxy")){
	print "Mech can http_proxy\n";
}else{
	print "Mech can't http_proxy\n";
}

if ($mech->can("proxy")){
	print "Mech can proxy\n";
}else{
	print "Mech can't proxy\n";
}