print $q->startform(-action=>"whatewer.cgi",
-TARGET=>"Top");

##</code><code>##

 
<script language=javascript type="text/javascript">
function speciallink(new) {
parent.frames["top"].document.location = new;
  } // -->
</script>

##</code><code>##

onClick="speciallink('Whatever.cgi')"