use CGI qw(:standard);

print header();
print start_html( -title=>'KEGG Connection',
                  -style=>{-src=>'style.css'},
                  -script=>{-language=>'JavaScript', -src=>'row.js'} ###this does not work
                  );

perl code to get data
print <<EOF;

<table>
<tr><th>KEGG Entry</th><th>KEGG Glycan Composition</th></tr>

EOF
more perl
print <<EOF;

<tr><td><a href="http://">$1</a></td><td>$2</td></tr>

EOF


##</code><code>##

print '<script language="javascript">';
var rows = document.getElementsByTagName('tr');
for (var i = 0; i < rows.length; i++) {
rows[i].onmouseover = function() {
this.className += 'hilite';
}
rows[i].onmouseout = function() {
this.className = this.className.replace('hilite', '');
}
}
print "</script>";