use forks;
use forks::shared;
my %GLOBALHASH : shared;
my %hashref    : shared;
$hashref = \%GLOBALHASH;


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