Proxyを通したGET

#-------------------
#☆Proxyを通したGET

#-------------------
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

my $request = HTTP::Request->new('GET', 'http://www.cybersyndrome.net/evc.html');

# UserAgentを生成して処理
my $ua = LWP::UserAgent->new;
$ua->proxy('http', 'http://brf-ce06-g2-0.tm.net.my:553');

my $res = $ua->request($request);

print $res->as_string;