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