use LWP::Debug 'level';
level('+');
use LWP::UserAgent;
$pm = 'www.perlmonks.org';
$ua = LWP::UserAgent->new();
$ua->agent("MyApp/0.1 ");
$ua->proxy('http', 'http://wawprx01.waw.nestle.pl');
my $res = $ua->get("http://$pm");
print $res->status_line, "\n";