for (@users) { 
    my $success = eval { 
        add_account($_); 
    }; 
    if($@ or not $success) {
        warn "Can't add user '$_': $@"
    }