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