use strict;
use warnings;

use CGI qw( header start_html end_html
            h1
            start_script end_script );

print
    header(),
    start_html(-title => "I swear to RTFM in the future",
               -head => [ start_script({ -type=>'text/javascript',
                                         -src=>'/main1.js' }),
                          end_script(),
                          start_script({ -type=>'text/javascript',
                                         -src=>'/main2.js' }),
                          end_script(),
                        ]
              ),
    h1("Oh, hai! I can haz script?");

print <<"SomeJS";
<script type="text/javascript"><!--//--><![CDATA[//><!--
   alert("Oh, noes!");
//--><!]]> </script>
SomeJS

print end_html();