$ perl -we'$SIG{CHLD} = sub { die "whoa there" }; eval { system("true") }; print "!$@!"'
!whoa there at -e line 1.
!