invalidObject Series (while)

#!/usr/bin/perl

$power = 8;

sub fission {

fork

or $child = 1;

$power-- if $child;

if ($child) {exit unless --$power}

return $child; }

while (not &fission) {

print 0;

bomb:

while (&fission)

{ print 1 }

}

goto 'bomb';