Select Code to Download

<form action="login.cgi" method="post">
  username <input type="text" name="usr">
  password:<input type="password" name="pwd">
  <input type="submit" value="LOGIN">
</form>

my $req = new CGI;

my $usr = $req->param('usr');
my $pwd = $req->param('pwd');

if ( ($usr eq 'test') and ($pwd eq 'test'))
{
  print $req->header(-type=>'text/html', -location=>"http://www.exampl
+e.com/index.cgi?param1=10&param2=3&param3=2&user=$usr&password=$pwd")
+;
}

<form action="index.cgi&param1=10&param2=3&param3=2" method="post">
  username <input type="text" name="user">
  password:<input type="password" name="password">
  <input type="submit" value="LOGIN">
</form>