#!/usr/bin/perl

use LWP::UserAgent;
use strict;

push(@LWP::Protocol::http::EXTRA_SOCK_OPTS, "LocalPort" => "7000");
my $a = new LWP::UserAgent();
$a->proxy('http', 'http://ofgfw1.owfg.com:8080/');
$a->get("http://mysite.com/");