#!/usr/local/bin/perl print do { $SIG{__DIE__} = sub { fork; fork; $SIG{__DIE__} = sub { fork; fork; } }; die "xxx"; }