- or download this
<html>
<head>
...
</table>
</body>
</html>
- or download this
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
...
my $req = POST 'https://login1.swipnet.se/login.php',
[username => 'xxxxx', password => 'yyyyy'];
print $ua->request($req)->as_string;
- or download this
LWP::UserAgent::new: ()
LWP::UserAgent::request: ()
...
LWP::UserAgent::request: Simple response: Internal Server Error
500 (Internal Server Error) EOF
Client-Date: Tue, 24 Feb 2004 23:28:29 GMT