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