<%perl> my $arg= $m->dhandler_arg; if ($arg =~ m,^/?$,) { $m->redirect('lookup'); } else { $r->header_out('Status','404 Not found'); Page not found - YARRG

404 YARRG component not found

<% $arg |h %> <%perl> }