Help for this page
print $query->start_html(-title => 'Selection ', -BGCOLOR=>'lavender', -script=>$JSCRIPT);
if ($query->param('embedvar')) { $JSCRIPT .= 'windo("no_win");'; }