for (1..5) {
    eval{
        do_foo() && do_bar()
    } and print or warn $@;
}