...Setup the session and output CGI headers...

if ($session->param('js')) {
   print <<'__EOI__';

document.write("Hello World!");

__EOI__
}

$session->param(js => 0);