Select Code to Download

&print_page_start;
if($query->param('submitted')) {
...
}
&print_page_end;

sub set_initial_values {
   $firstname = $query->param('firstname');
...
   $password = $query->param('password');
   $passagain = $query->param('passagain');
}

# the important part of submit form
sub print_form {
...
    <br>First Name</font></td><td bgcolor=#FFFFFF><input type=\"text\"
+ name=\"$firstname\" size=25 maxlength=20 />
    </td></tr> \n";
}