sub displayreg() {
                printf $q->h1("CVS New User registation for $_[0]");  # Print Header
                printf $q->start_form;
                printf "<br>";
                printf "<b>Please enter the details below to register a new user </b>";print"<br><br>";
                printf "<EM>Users Username from GD  </EM>"; print $q->textfield(-name=>'username',-size=>'20');print"<br><br>";
                printf "<EM>Users Email Address  </EM>"; print $q->textfield(-name=>'emailaddr',-size=>'30');print"<br><br>";
                printf $q->hidden(-name =>'mode',-value=>'regthisuser');
                printf $q->hidden(-name =>'repaccess',-value=>$_[0]);
                printf $q->submit(-value=>'Submit');
                printf " ";
                printf $q->reset;
                printf $q->endform;
                printf "<BR>";
}