#!/usr/bin/perl -w
use IPC::Shareable;
$glue = 'data';
%options = (
	    'create' => 'yes',
	    'exclusive' => 'no',
	    'mode' => 0644,
	    'destroy' => 'yes',
	    );
tie(%colours, IPC::Shareable, $glue, { %options }) or
    die "server: tie failed\n";
%colours = (
	    'red' => [
		      'fire truck',
		      'leaves in the fall',
		      ],
	    'blue' => [
		       'sky',
		       'police cars',
		       ],
	    );
(print("server: there are 2 colours\n"), sleep 5)
    while scalar keys %colours == 2;
print "server: here are all my colours:\n";
foreach $colour (keys %colours) {
    print "server: these are $colour: ",
    join(', ', @{$colours{$colour}}), "\n";
}
exit;
