#!/usr/bin/perl -wl
use strict;

our $var = "foo";
# my $var = "foo";   # same thing wrt fork

sub modify_var {
    $var = shift;
}

unless (fork) {
    sleep 1;
    print "child: $var";
    modify_var("bar");
    print "child: $var";
} else {
    modify_var("baz");
    wait;
    print "parent: $var";
}


##</code><code>##

child: foo
child: bar
parent: baz

##</code><code>##

child: baz
child: bar
parent: bar