как правильно сделать redirect?

[D.O.]

Как правильно сделать redirect?
Я делал так:

use CGI qw(:standard);
use CGI::Carp qw (fatalsToBrowser);
#...
my $query = new CGI;
#...
$query->redirect("main_page.pl");

До этого вызова пользователю не выдавалось ничего.
Такой способ не срабатывает.
Почему так получается и как сделать правильно?

[Mog.]

изучаем perldoc

  print $query->redirect(\'http://somewhere.else/in/movie/land\');

[commander]

на худой конец:
print "Location: http://www.blah.org/\\n\\n";

[D.O.]

Теперь понятно: можно использовать только полне абсолютные URL.
А как быть, если мне нужно передать URL на одну из страниц моего сайта, но нет желания вписывать название домена или "localhost"? Например, чтобы я мог без изменений тестировать скрипт на локальном компьютере и потом выкладывать на сайт.

[commander]

D.O.

Теперь понятно: можно использовать только полне абсолютные URL.

это не так! относительные пути тоже можно использовать... только надо это делать грамотно!

[D.O.]

commander:
относительные пути тоже можно использовать... только надо это делать грамотно!

А как это делать?
В доке я не нашёл информации.

[NeoNox]

$query->redirect("/main_page.pl");

[D.O.]

NeoNox:
$query->redirect("/main_page.pl");

В результате просто выводит страницу с пустым телом.

[NeoNox]

Мда... Кто выводит страницу?
Что в логах?
Что нужно получить?

[D.O.]

Проблема решена.
Это было из-за того, что я печатал
print "Content-Type: text/html; charset=windows-1251\\n\\n";
перед
print("Location: http://" . $ENV{"SERVER_NAME"} . "/cgi-bin/my_script.pl\\n\\n");