Select Code to Download

 sub displayreg() {
              print $q->start_form;
print "<b>Please enter the details below to register a new user </b>"
...
   print $q->endform;
  print "<BR>";
}

sub registeruser() {
        printf ("The username you entered was $q->param('username'));
}