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";
}