in reply to Problems with LWP on FreeBSD
#!/usr/bin/perl use LWP::UserAgent; use HTTP::Request::Common; my $ua = new LWP::UserAgent; my $r = $ua->request(POST 'http://www.somesite.com/Login.jsp', Submit= +>'Sign in', requiredUserName=>'123abc', requiredPassword=>'abc'); if ($res->is_success) { }else{ }
|
|---|