Because what CGI.pm does is to simply print output to the STDOUT (this is the protocol of CGI itself), you can always print the needed Javascript from your program.

Code:

print <<EOF;
<script type="text/javascript">
function confirmOk() {
    return window.confirm("Confirm deletion?");
}
</script>
EOF

This should be printed somewhere inside the "head" or "body" tags. This prints a Javascript function definition, but just like a Perl subroutine definition, it is not called immediately. It must still be called from somewhere in the program.

If you still wish to use CGI.pm to generate the entire HTML output after reading this post (which I don't really recommend because I think that facade doesn't do much good), CGI.pm exposes some attributes that correspond to standard Javascript event handlers applied to HTML objects that you can use to execute custom Javascript just like the one above. You can find more information at:

CGI - perldoc.perl.org

Then you can do something like this to install the handler:

Code:

print button(-name=>'button_name',
			  -value=>'user visible label',
			  -onClick=>"return confirmOK()");

If you think that printing javascript text from your Perl program is very ugly, like I do, use a template system to generate the returned content rather than using the "tree-building" mode of CGI.pm (but do use CGI.pm to generate headers, capture GET/POST/COOKIE params etc. - that's good). My favourite:

Template Toolkit Home Page

I advise you to really find out more about HTML and Javascript or your concepts may not allow you to go too much further, no matter you are going the CGI.pm route, template route or some other approaches. Because Javascript is complex, I suggest you look for resources to learn on your own but definitely don't look into the Perl docs for that!