Select Code to Download

  print redirect ( cookie => $Cookie, uri => $URL );

  print redirect ( -cookie => $Cookie, -uri => $URL );

    print p, startform,
      table ( { border => 1, cellspacing => 0, cellpadding => 2 },
...
          td ( { rowspan => 2 }, submit ( "Login" ) ) ),
        Tr ( th ( "Password:" ), td ( password_field ( PASSWORD ) ) ) 
+),
      endform;