map_query($cgi,  
   {
     _page => 'edit',
     node => /(\w+)/,
     code => sub { print "You're trying to edit '$node'" };
   },{ 
     _page => 'create'
     name  => /(\w+)/,
     _code => sub { print "You're trying to create '$name' but gave no code to fill it"; }
   },{
     _page => 'create',
     name  => /(\w+)/,
     code  => /(.*)/,
     _code => sub { print "Created as sub $name { $code }"; };
   },{
     _page => /.*/,
     _code => sub { print "Don't know how to handle " . $q->query_path; }
   }
);