Help for this page

Select Code to Download


  1. or download this
    <html>
    <head>
    ...
    </table>
    </body>
    </html>
    
  2. 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;
    
  3. 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