#!/usr/bin/perl -wT use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); $JSCRIPT=< 'sortable table?', -style => '/js/sample.css', -script => { -language => 'javascript', -type => 'text/javascript', -src => '/js/TSorter_1.js', }, -script=>"$JSCRIPT" );