12345678
sub doredirect{ my ($cgi, $url) = @_; $cgi->redirect($url); exit(0);}doredirect($cgi, URL) unless $vlaue; # if (not $value);