#timeout on DNS and SMTP network checks
$Mail::CheckUser::Timeout = 10;
$Mail::CheckUser::Treat_Timeout_As_Fail = 1;

foreach $add (@adds){ 
    
    $pm->start and next;

    if (Mail::CheckUser::check_email($add)){
        writeaddr(*GOODADDR, $add); #address is good
        print $add." good ".Mail::CheckUser::last_check()->{reason}."\n";
        $pm->finish;
    }else{  
        writeaddr(*BADADDR, $add); #address is bad
        print $add." bad".Mail::CheckUser::last_check()->{reason}."\n";
        $pm->finish;
    }
}
$pm->wait_all_children;