invalidObject Series (while) (EP)

#!/usr/bin/perl

$power = 8;

sub fission {

fork

or $child = 1;

$power-- if $child;

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

return $child; }