Can't store GLOB items at blib/lib/Storable.pm (autosplit into blib/lib/auto/Storable/_freeze.al) line 180, <GEN1> line 1, at /usr/lib/perl5/site_perl/5.6.1/IPC/Shareable.pm line 523

##</code><code>##

use IPC::Shareable;
use IO::Socket;
my $Socket = IO::Socket::INET->new(
                LocalPort => 8190,
                Type      => SOCK_STREAM,
                Reuse     => 1,
                Listen    => 1 );
if (not defined $Socket){
        die "ERROR: cannot listen on port 8190: [$!]\n";
}


my %options = (
    create    => 'yes',
    exclusive => 0,
    mode      => 0666,
    destroy   => 'yes'
);

$IPC2 = tie $ProcessedMessages, 'IPC::Shareable', 'data', { %options } or
     die "client: tie failed\n";
$ProcessedMessages = [];

...

while($client = $Socket->accept()){
  my $msg;
  $msg = <$client>;
  chomp $msg;
  my $pid = fork();
  if(not defined $pid){
    die "Fork Error: $!\n";
  }

  #Child
  if($pid == 0){
      &Process($msg, $client);
      exit();
  }else{
      close($client);
  }
}

sub Process{
  my $msg = $_[0];
  my $client = $_[1];

  ...Do Some Message Processing...

  $IPC2->shlock;
  my %tmp = (
             Message => $msg,
             Connection => $client ##Problem
            );
  push(@{$ProcessedMessages},\%tmp);
  $IPC2->shunlock;
  print $client "$msg\n";
  close($client);
}