Works for me:

Q:\>perl -MCGI=redirect -e "print redirect('http://google.de')"
Status: 302 Moved
Location: http://google.de
[download]

Maybe you didn't print the result from ->redirect? Otherwise, it's always helpful to tell us how exactly things do not work, and maybe tell us the entries in the server error log as well.

Sorry for insufficient infomation.


 my $username=$cgi->param('username');
    if ($username eq 'testuser'){
        print $cgi->redirect("http://navitwiki/cgi-bin/main.cgi");
    }else{
        $message='Please Check the Username & Password';
        &init_screen();
    }
[download]



this is my code. While running only the following text is displayed . but i want to open the mentioned script in the browser .

URL Status: 302 Moved Location: http://navitwiki/cgi-bin/main.cgi
[download]

So, the most likely cause is that you or your script output something else before the redirect is printed, because, as you see in the output, the Location: header is there. Run your script on the command line to see what it outputs, or use the GET command from LWP to see what your script outputs:

GET -USe http://...
[download]

... or alternatively, debug what is output via telnet.

<META HTTP-EQUIV="refresh" 
content="1;URL=http://www.somewhere.come/">
[download]

If you need to see the output of headers from the CGI you are writing to make sure they conform to your expectations, you can pass your parameters on the command line:

#> perl mytest.cgi username=myname userid=9999
[download]

Your output is what is sent to the client browser, unless your web server re-interprets your content (some do). If you see anything in the header not matching what a HTML Header should look like, that is likely what is breaking your page.