--- ForkBlock.pm~	Wed Dec 24 20:18:01 2008
+++ ForkBlock.pm	Wed Dec 24 21:02:50 2008
@@ -31,6 +31,9 @@
     my $parent=$params{"parent"};
     my $child =$params{"child"} ;
     my $error =$params{"error"} ;
+
+    croak "No Child defined" unless $child;
+    croak "No Parent defined" unless $parent;
     
     local $!;
 

##</code><code>##

--- 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

##</code><code>##

Fork {
    Parent \&manager,
    Child  \&worker
};

##</code><code>##

--- ForkBlock.pm~	Wed Dec 24 21:14:35 2008
+++ ForkBlock.pm	Thu Dec 25 02:08:18 2008
@@ -27,10 +27,10 @@
 #private--implements the actual forking
 sub phork {
     my %params=%{shift()};
-    
-    my $parent=$params{"parent"};
-    my $child =$params{"child"} ;
-    my $error =$params{"error"} ;
+
+    my $parent=$params{parent}|| $params{Parent};
+    my $child =$params{child} || $params{Child};
+    my $error =$params{error} || $params{Error};
 
     croak "No Child defined" unless $child;
     croak "No Parent defined" unless $parent;

##</code><code>##

Fork {
    Parent=>sub{ ... }, #The comma's important here.
    Child =>sub{ ... }
};