sub validate_fields {
    ...
    if($q->param(mail)) {
        my $mod =  '/home/tanger/www/mods';
        unshift @INC, $mod
            unless $INC[0] eq $mod;
        require Email::Valid;      # to include the code
        import Email::Valid;       # to import symbols into your names
+pace
        ...
    }
    ...
}
[download]

Read perlmod - I've done that again yesterday. It is good to re-read manual pages, since there are always things in them which escape your attention in the first place, but get important when your knowledge of perl deepens. Read the docs, and often! :-)

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}