unless ( length $f_zip == 5 )
        {
        
           $f_zip_error = "<font color=\"red\">Zip code cannot be blank and must be 5 digits in length.</font><BR>\n";
       $p_Terrors = $p_Terrors + 1;
    }