Hola bt707,
En primer lugar, sugeriría que usted no incomode con crear el HTML se marque con etiqueta sino que por el contrario utilizo el CGI.pm muy estándar (
http://perldoc.perl.org/CGI.html). Garantizará que usted produce siempre el HTML bien formado.
Re: sus errores “perdidos”, qué usted necesita son recogen todos los errores en un arsenal:
si (eq de $in {correo} '') {empuje (el @missing, “necesidad de incorporar un válido \ un “email address \ un "")}
si (eq de $in {encargado} '') {empuje (el @missing, “necesidad de incorporar a un válido \ a un “encargado \” (encargado) ")}
si (eq de $in {c} '') {empuje (el @missing, “necesidad para incorporar un válido \ un “país \” un (c) y \ “ciudad \” (l) “)}
Y entonces imprimirlos todos usar algo similar:
mi $errorHtml = ensamblan ("", el mapa {“
$_“} @missing);
y substituir su
$missingcon $errorHtml
¡Buena suerte!