If you want to do it "by hand" you could use a counter, incrementing it at each succeeding fork and decrementing it when you catch SIGCHLD.

Ciao!
--bronto

# Another Perl edition of a song:
# The End, by The Beatles
END {
  $you->take($love) eq $you->make($love) ;
}