if ($location =~ m|/webhp$|) {
        my $new_location = "http://www.google.com/search?q=perlmonks";
        $headers->header( Location => $new_location );
    }