http://www.perlmonks.org?node_id=62042

BinBerliner has asked for the wisdom of the Perl Monks concerning the following question:

How to submit the nickname and password for the HTML page below?
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Untitled</title> <link rel=stylesheet type="text/css" href="../images/friendsco +ut.css"> </head> <body background="../images/fs_bg/bg_login.gif" bgcolor="#95B8CE" topm +argin="0" leftmargin="0" marginheight="0" marginwidth="0"> <FORM method="get" action="/cgi-bin/pu_help2.fcgi"> <input type="HIDDEN" name="id" value="1-d24-6UAPfv6PUogp1jjKEb60Giw"> <input type=hidden name="page" value="loginp"> <table cellpadding=0 cellspacing=0 border=0> <tr> <td colspan=3><img src="../images/nix.gif" width="1" height="20" b +order="0"> </td> </tr> <tr> <td><img src="../images/nix.gif" width="10" height="1" border="0"> +</td> <td colspan=2>Pseudonym</td> </tr> <tr> <td>&nbsp;</td> <td colspan=2><input type=text name="nickname" size=18 maxlength=4 +0></td> </tr> <tr> <td colspan=3><img src="../images/nix.gif" width="1" height="8" bo +rder="0"></td> </tr> <tr> <td>&nbsp;</td> <td colspan=2>Passwort</td> </tr> <tr> <td>&nbsp;</td> <td><input type=password name="password" size=10 maxlength=30></td +> <td align=right><input type="image" value="Submit" src="../ima +ges/fs_buttons/go.gif" width="26" height="17" border="0" alt="Go!"></ +td> </tr> </table></form> </body> </html>
I tried fiddling with the following Perl code but can't get it to work:
my $req = new HTTP::Request('POST', $url, $hdrs); $req->content_type("application/x-www-form-urlencoded"); $req->content("nickname=JohnSmith&password=test");