perl -e 'while (print fork," ") { exit if int rand(1.01); }'

21278 21279 21280 21281 21282 3 21284 21285 21286 21287 21288 21289 0
21291 21292 21293 21294 21295 21296 21297 2129821299 0 21301 21302 21303
21304 21305 21306 21307 21308 21309 0 21311 21312 21313 21314 21315
21316 21317 21318 21319 021320 21321 21322 21323 21324 21325 21326 21327
21328 0 0 0 21329 21330 21331 21332 21333 21336 21337 21338 21339
2134021341 21342 21343 21344 21346 21347 21348 21349 21350 21351 21352
21353 21354 21355 0 21357



0


0


0



0



0 0



0 0 0



0 0 0



0 0
0


0 0
0


0 0
0


0
0 0



0 0 0



0 0 0



0 0 0



0 0 0 0 0



0
0 0



0 0
0 0 0 0



0 0 0 0 0 0 0



0



0 21358


0



0



0


0



0 0 0
0 0 0 0 0 0



0



0 0


21359



0 21360



0



21335 21361



0 21362


0
21363


0 21364



0 21365



0 21366



0 21367



0 21368


0 21369



0 21370



0 21371



0
21372


0 21373



0 21374



0 21375


0 21376



0 21377



0 21378


0 21379