Select Code to Download

 if ($q->param('userid') eq '') {
        $self->_create_user();
    } else {
        $self->_update_user();
    }

sub maintain_user {
    my $self = shift;
...
    use Data::Dumper;
    return Dumper $q;
}