#!/opt/perl/bin/perl 
use strict; 
use warnings; 
use HTTP::Proxy; 
my $proxy = new HTTP::Proxy; 
$proxy->port(3128); # the classical accessors are here! 
$proxy->logfh(*STDOUT); 
#$proxy->logmask(ALL); 
$proxy->start;

#!/opt/perl/bin/perl 
use LWP::UserAgent; 
$ua = new LWP::UserAgent; 
$ua->proxy(http  => 'http://127.2.3.4:3128'); 
my $response = $ua->get('http://ipaddress/CGI/Java/Serviceability?adapter=device.statistics.configuration');  
 
 if ($response->is_success) { 
     print $response->decoded_content;  # or whatever 
 } 
 else { 
     die $response->status_line; 
 }