Как задействовать javascript в perl

[proparket]

Добавил кнопку "Доставка" в интернет магазин. Но не хотелось бы, чтобы с магазина пользователь уходил на другую страницу с описанием форм доставки, а она выскакивала вторым окном заданного размера, которое можно закрыть за ненадобностью.
Поставил
print " :: <a href=\"javascript:openNewWindow('delivery.htm','wi dth=300,height=300')\"><font color=\"#F5EFD7\">Доставка</font></a> \n";
print " </font></td> \n";
Выдает "ошибку на странице 500" (возможно не все == отчеркнул
Если через print qq~ то страницу видно, но ссылка не работает (хотя в строке состояния ОК)
Если кто связывался подскажите. Пока поставлю по простому.

[chorny]

JavaScript надо протестировать отдельно и посмотреть работает или нет.

Очень простой способ вывода текста - heredoc
print <<EOT;
текст здесь
EOT

если не нужна интерполяция переменных
print <<'EOT';
текст здесь
EOT

А вообще рекомендую прочесть книгу "Изучаем Perl". Лучше всего читать 4-е издание.