Eily,

I currently have:

            for (my $i=0;$i<@loc_email_list;$i++){
                # Set timeout in seconds to avoid excessive delays and
+ crashing.
                my $valid_email_address = Email::Valid->new();
                $Email::Valid::Resolver->tcp_timeout(10);
                my $valid = Email::Valid->address(-address => $loc_ema
+il_list[$i],
                                  -mxcheck => 1,
                                  -tldcheck => 1
                                  ) ? '1' : '0';
                if (length ($loc_email_list[$i]) == 0 or not $valid){
                    __message(__t("You must enter a valid email 'to' a
+ddress."), $dialog_1);
                    $dialog_1->{Ctl_Dialog_Email_To_Txt}->SetFocus;
                    redo SHOW;
                };        
            }
[download]

There is no eval there, in spite of what Carp says, but I guess you are saying there should be.

It's what McA says too.

Thanks and regards.

Steve.