Select Code to Download

$| = 1;
if ($pid = fork) {
...
} else {
    print "fell through\n";
}

this is the parent -2072
this is the child 0
Active cell address $C$23
Active cell address $C$23

Attempt to free non-existent shared string 'Range' at <eval 1> line 1.
Free to wrong pool 1e5da80 not 223f90 at <eval 1> line 1.

Attempt to free non-existent shared string 'Range' at <eval 1> line 1,
+ <STDIN> line 1.
Free to wrong pool 1e5dce0 not 223f90 at <eval 1> line 1, <STDIN> line
+ 1.

Undefined subroutine &Carp::shortness_heavy called at c:/Perl/lib/Carp
+.pm line 182.
Free to wrong pool 1e5da30 not 223f90.