print CGI->redirect(...);
close STDOUT;

##</code><code>##

$|=1;
print CGI->redirect(...);
print chr(4); # EOT