# /edit?node=(\w+);... {
#     print "You're trying to edit '$node'";
# };
sub edit_node {
    my ($q) = @_;
    return
        if ($q->param('node') !~ /^(\w+)$/;
    my $node = $1;

    print "You're trying to edit '$node'";
};