use forks;
use forks::shared;

my $GLOBALPRICE : shared;
share ($GLOBALPRICE);

my $pid = fork ();
if (!$pid) {       # child 
    $GLOBALPRICE = 100; exit 0;
} elsif ($pid)  {  # daddy
    sleep (2);
    print "Global Oils Price is now: " . $GLOBALPRICE . " dollars\n";
} 

##</code><code>##

use forks;
use forks::shared;
my %GLOBALHASH : shared;

share (%GLOBALHASH);

my $pid = fork ();
if (!$pid) {      # child 
    $GLOBALHASH->{OILPRICE} = 100; exit 0;
} elsif ($pid)  {  # daddy
    sleep (2);
    print "Global Oils Price is now: " . $GLOBALHASH->{OILPRICE} . " dollars\n";
}