invalidObject Series (while)

Tracklist

1. 1#!/usr/bin/perl1:02
2. 2$power = 8;1:02
3. 3sub fission {1:02
4. 4fork1:02
5. 5or $child = 1;1:02
6. 6$power-- if $child;1:02
7. 7if ($child) {exit unless --$power}1:02
8. 8return $child; }1:02
9. 9while (not &fission) {1:02
10. 10print 0;1:02
11. 11bomb:1:02
12. 12while (&fission)1:02
13. 13{ print 1 }1:02
14. 14}1:02
15. 15goto 'bomb';1:00