$ while true; do perl fork.pl; sleep 1; done
I'm the parent and my pid is 2094.  My child is 2095
I'm the child and my pid is 2095.  My parent is 1
I'm the parent and my pid is 2097.  My child is 2098
I'm the child and my pid is 2098.  My parent is 1
I'm the parent and my pid is 2100.  My child is 2101
I'm the child and my pid is 2101.  My parent is 1
I'm the parent and my pid is 2103.  My child is 2104
I'm the child and my pid is 2104.  My parent is 2103
I'm the parent and my pid is 2106.  My child is 2107
I'm the child and my pid is 2107.  My parent is 1
^C