sub displayreg() {
              print $q->start_form;
print "<b>Please enter the details below to register a new user </b>"
print "<EM>Users Username from </EM>"; print $q->textfield('username'); 
print $q->submit(-name=>'Action',-value=>'Submit',-onClick=>&registeruser());
     print $q->reset;
   print $q->endform;
  print "<BR>";
}

##</code><code>##

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