Help for this page

Select Code to Download


  1. or download this
    use URI::Escape;
    
    ...
    __END__
       http://www.google.com/sorry/?continue=http://www.google.com/search%
    +3Fq%3Dperlmonks
    => http://www.google.com/search?q=perlmonks
    
  2. or download this
        http://www.google.com/search?=perlmonks
    
  3. or download this
        if ($location =~ m|/webhp$|) {
            my $new_location = "http://www.google.com/search?q=perlmonks";
            $headers->header( Location => $new_location );
        }