use LWP::Simple;
use LWP::Simple qw( $ua get );
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use HTTP::Request

my $ua = new LWP::UserAgent;

$proxy='http://72.43.50.184:80/';
$contentget = "http://search.cpan.org/~gaas/libwww-perl-5.837/lib/LWP/UserAgent.pm"; 

$ua->timeout(3); 
$ua->proxy(['http'], $proxy);
my $req = new HTTP::Request GET => '$contentget';
my $res = $ua->request($req);
 
if ($res->is_success) 
{
  $content= $res->content;
} 
else 
{
  die "Could not get content";
}


# ptest.pl