I have written this method
But which is another form
la

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->tex
+tfield(-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>";
}
[download]


So you see, first the user uses one form to select what they would like to do.
then With that selection another form will be generated to handle their tasks
. It is the second form generation that i have problems with

That's a server error which means your script is failing. Make sure you have the following at the top of your code:

#!/usr/bin/perl
use strict;
use warnings;
[download]

then run your script and check your error logs. The logs should tell you what the problem is.