perl -e "fork or warn 1 while 1; die 2"