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

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


这样吗？但是报错！
请大侠帮忙。

请问语法是否正确？

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