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_email_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' address."), $dialog_1);
					$dialog_1->{Ctl_Dialog_Email_To_Txt}->SetFocus;
					redo SHOW;
				};		
			}