请教怎么在perl的cgi代码中添加messagebox的功能

请问如何在perl的cgi代码中添加messagebox的功能？
各位大侠，我想在cgi代码中添加一个按钮来实现点击会弹出box，同时接受box的返回值（确定   取消），请问如何做？

我找了半天发现javascript中比较容易，但是我不知道怎样在cgi代码中插入javascript代码，试验了半天也没成功，请高手指点，谢谢！！！

－－－－－－－－附件－－－javascript中的messagebox－－－－
<script   language= "javascript "   type= "text/javascript ">
var   counter=0;
counter=window.confirm( 'message ');
</script>

------解决方案--------------------
print "Content-Type: text/html\r\n\r\n ";

my $counter = 119;

print < < "JSCODE ";

<script language= "javascript " type= "text/javascript ">
var counter=$counter;
counter=window.confirm( 'message ');
</script>

JSCODE