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