use Sharable;

# %contracts is one data structure I would like to give away
my %contracts = ( 'VLAN1' => 45, 
  'VLAN2' => 46,
  'VLAN3' => 78,
);

Sharable::give_away(%contracts);

##</code><code>##

use Sharable;

# $pid is PID of process which is sharing data

my $received_stuff = Sharable::get_data($pid);

# $received_stuff will be similar to %contracts