perl/CGI中怎么打印javascritp脚本呀

perl/CGI中如何打印javascritp脚本呀?print qq/javascript:alert(修改成功!)/这样吗?但是报错!请大侠帮

perl/CGI中如何打印javascritp脚本呀?
print qq/javascript:alert('修改成功!')/;


这样吗?但是报错!
请大侠帮忙。

请问语法是否正确?

[解决办法]
不懂perl
不过输出应该是这样
"<script type=\"text/javascript\">alert(\"ok\");</script>"
把这个串print出来就可以了