#!/usr/bin/perl -w
use strict;
use CGI qw(standard);

print header;
print <<'END_OF_JS'
<script>
alert("Hello World");
</script>
<p>And here comes some text of the rest
of the page</p>
END