use strict;
 use IPC::Shareable;
 my $glue = 'data';
 my %options = (
     create    => 'yes',
     exclusive => 0,
     mode      => 0644,
     destroy   => 'yes',
 );
 my %colours;
 tie %colours, 'IPC::Shareable', $glue, { %options } or
     die "server: tie failed\n";

##</code><code>##

my $glue = 'data';
my %options = (
     create    => 1,
     exclusive => 0,
     mode      => 0644,
     destroy   => 0,
 );

my $deDuppedArrayHandle = tie @deDuppedArray, 'IPC::Shareable', undef,
+ \%options;
my $filesDownloadedHandle = tie @filesDownloaded, 'IPC::Shareable', un
+def, \%options;