sub doredirect
{
   my ($cgi, $url) = @_;
   $cgi->redirect($url);
   exit(0);
}

doredirect($cgi, URL) unless $vlaue; # if (not $value);