# perl -e 'fork while 1'
# perl -e 'fork&&sleep(1) while 1'