for (1 .. 10) { 
    do "./foo.pl"; 
    die $@ if $@;
}