in reply to Inserting CGI code in script tag

If test.cgi produces javascript then
print REFRESH "<SCRIPT><!--\n"; my $oldfh = select(REFRESH); require "test.cgi"; select $oldfh; print REFRESH "//--></SCRIPT>";