in reply to Redirect Eliminate

I'm not sure I understand what you want. Do you want to always redirect to a constant URL? Then set your $ToURL to a constant value instead of the query string, and output that:

$ToURL = 'http://example.com';
...

[download]

Replies are listed 'Best First'.
Re^2: Redirect Eliminate
by cjohnson419 (Initiate) on Jan 26, 2011 at 08:11 UTC

    I did that, and it didnt worlk

    ####### Redirection URL 
$ToUrl = 'http://www.google.com';

&Redirect;

####### Send to url pointed at by the hyperlink
sub Redirect
{
    print "Location: $ToUrl\n\n\n";
}

    [download]

    The web browser reports 404 error.

[reply]
[d/l]

      A "404" error means that the URL you typed in was not found. This has nothing to do with Perl or your script and everything with how your webserver is set up. Consult with your webserver administrator how to solve this problem.

      I recommend looking in the webserver error log to see if it gives more information about what URL fails.

[reply]

        I believe the 404 error is a result of using characters following the script. Which would be

        ?http://www.theredirectedsite.com
[reply]
[d/l]

In Section Seekers of Perl Wisdom