# script head above
if($q->param('f') eq 'done'){
print '<SCRIPT Language=\'JavaScript\'>
history.go(-1)
</SCRIPT>';
}

##</code><code>##

<INPUT TYPE=hidden NAME=f VALUE=done>