12345678
$ perl -le '$num=0; if (fork) { while(1) { print "Elter: ", ++$num; sleep 1 } } else { while(1) { print "Kind: ", ++$num; sleep 1 } }'Elter: 1Kind: 1Elter: 2Kind: 2Elter: 3Kind: 3^C