Error

use CGI; my $q = new CGI; $user_id=$q->param('userid'); $user_email=$q->param('useremail'); $user_name=$q->param('username'); $give_access = ""; ##

##

 if ($q->param('userid'))
         {
         }
 else
         {
         &error_message("You need to use the form to access this program!");
         }

sub error_message
 {
 local($e) = @_;
print <<"END";


Error


Error. The error seems to be:
$e

END
exit;
}