Select Code to Download

sub email
{
    my ($class, $value) = @_;
...

    return "$1\@$2\.$3";
}

my $email = Validate->email( param( 'email' ) );
push @errors, "Missing or invalid e-mail address '$email'\n" unless $e
+mail;