print $q->redirect(
  -status => "",
  -uri    => "/cgi-bin/Auto.cgi"
);
##</code><code>##

print "Location: /cgi-bin/Auto.cgi\n\n";