$ perl 1210687.pl

Before forking: bar
After forking: baz