my $a = "Hell,o world!\n";
my $b = \$a;

if (fork) {
  wait;
  print $$b;
}
else {
  $$b = "Hello, world!\n";
}