use CGI;

print qq{<form action='/cgi-bin/opal/display_seview.cgi' method='post' target='new'>
<input type='hidden' name='text' value='@{ [ CGI->escapeHTML($joined) ] }'/>
<input type='hidden' name='header' value='@{ [ CGI->escapeHTML($query) ] }'/>
<input type='hidden' name='sequence' value='@{ [ CGI->escapeHTML($whole_sequence) ] }'/>
<input type='submit' value='View Applet in new window'/></form>
};
##</code><code>##

use CGI;

print qq{<form action='/cgi-bin/opal/display_seview.cgi' method='post' target='new'>};
print CGI->hidden( 'text',     $joined );
print CGI->hidden( 'header',   $query );
print CGI->hidden( 'sequence', $whole_sequence );
print qq{<input type='submit' value='View Applet in new window'/></form>};