use Proc::Queue qw(run_back); Proc::Queue::trace(1); #### run_back { eval { ... parallel code here ... }; print STDERR $0."[$$]: $@\n" if $@; };