my @errors = grep { defined && length } $trap->die, $trap->stderr, $trap->stdout; print "Error: $_\n" for @errors; # any and all error(s) are now left in @errors