use LWP::UserAgent; my $ua = LWP::UserAgent->new; $ua->agent("Faux Browser/1.0"); my $req = HTTP::Request->new(GET=>$url); $req->content_type('application/x-www-form-urlencoded'); $req->content('query=libwww-perl&mode=dist'); my $res = $ua->request($req); if ($res->is_success) { # do stuff } else { # error out }
--
paul
In reply to LWP Byte Limit by vbrtrmn
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |