perl -wle 'for (1 .. 10) {eval "die"; print $@}'