use CGI qw(:standard); print header(); #$JSCRIPT=< function add_handlers { 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', ''); } } } EOF print start_html( -title=>'KEGG Connection', -style=>{-src=>'style.css'}, ); print ""; do the perl stuff and print table.