Help for this page
if ($q->param('userid') eq '') { $self->_create_user(); } else { $self->_update_user(); }
sub maintain_user { my $self = shift; ... use Data::Dumper; return Dumper $q; }