Select Code to Download

#!/usr/bin/perl

...
my $a = new LWP::UserAgent();
$a->proxy('http', 'http://ofgfw1.owfg.com:8080/');
$a->get("http://www.yahoo.com/");

print $sock->sockaddr(), "\n";
print $sock->sockport(), "\n";