Proxyを通したCGI_post

#--------------------------------
#☆Proxyを通したCGI_post
#--------------------------------
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

# リクエストの生成
my $url = 'http://www.aaa.com/cgi-bin/hogehoge.cgi';
my %formdata = (
'hoge' => 'form',
'hoge01' => 'yes',
'hoge02' => 'term1',
'hoge03' => 'aaaa',
'submit' => '送　信');

my $request = POST($url, [%formdata]);

#
# --- UserAgentを生成して Post 処理
#
my $ua = LWP::UserAgent->new;
$ua->proxy('http', 'http://host-148-244-150-52.block.alestra.net.mx:80');
my $res = $ua->request($request);

print $res->as_string;