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