Select Code to Download

my @sorted = qw(
    02_org_name
...
    defined $cgi->param($_) and $cgi->param($_)
       or print "You must define a $_.<br>" and ''
} @sorted;

my @sorted = qw(
    02_org_name
...
} @sorted;

@missing and print "You must define these fields: ",join(', ', @missin
+g),".<br>\n";

    if (defined $cgi->param("$_")) {

    print "You must define a $_." . "<br>";

    print "You must define a $_.<br>";  # less noise

print <<END_TMPL;