--- ForkBlock.pm~	Wed Dec 24 21:02:50 2008
+++ ForkBlock.pm	Wed Dec 24 21:14:35 2008
@@ -40,7 +40,7 @@
     FORK_IT: {
         if($CHILD_PID=fork()) {
             #i'm the parent
-            &$parent;
+            &$parent($CHILD_PID);
 	  }
         elsif(defined($CHILD_PID)) {
             #i'm the child