C:\test>perl -le"if(fork){sleep 5;print'parent'}else{sleep 7;print'child'}"
parent
child