Help for this page

Select Code to Download


  1. or download this
    use LWP::Debug 'level';
    level('+');
    ...
    $ua->proxy('http', 'http://wawprx01.waw.nestle.pl');
    my $res = $ua->get("http://$pm");
    print $res->status_line, "\n";
    
  2. or download this
    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