http://www.htmlhelp.com/tools/validator/problems.html#script
</%doc>
+<%perl>
+my $ct= $m->content;
+
+die "bad script content $&"
+ if $ct =~ m,\<\/|--\>,;
+</%perl>
+% if (!printable($m)) {
<script type="text/javascript">
<!--
<% $ct %>
// -->
</script>
-<%init>
-my $ct= $m->content;
-
-die "bad script content $&"
- if $ct =~ m,\<\/|--\>,;
-</%init>
+% }