Help for this page
use strict; use warnings;
while ( my $q = new CGI::Fast ) { my $query = $q->param('node'); ... $nodes{ exists $nodes{$query} ? $query : '_err' }(); print "done!\n"; }