Help for this page
use LWP::Debug 'level'; level('+'); ... $ua->proxy('http', 'http://wawprx01.waw.nestle.pl'); my $res = $ua->get("http://$pm"); print $res->status_line, "\n";
LWP::UserAgent::new: () LWP::UserAgent::proxy: http http://wawprx01.waw.nestle.pl ... ^M LWP::Protocol::collect: read 87 bytes LWP::UserAgent::request: Simple response: Bad Request