perl -e '$|=1; @a=(0..10_000_000);
 $child = fork();
 die "fork failed\n" unless (defined $child);
 print "parent = $$\nchild  = $child\n" if $child;
 sleep 30'