#!/usr/bin/perl -w
#ipcprocesses.pm.
...
sub new {
    my $class = shift;
    my $this = { 'field' => 1 };
    bless ($this,$class);
    tie $newvalue,'IPC::Shareable','kali';
    return ($this);
}
...
sub DO_newchild 
   {
    my $this = shift;
   ...
    if ($pid = fork)
    { #parent
        $this->{'field'} = $newvalue;
        ...
    }
    else{
         my $newvalue;
         tie $newvalue,"IPC::Shareable",'kali';