As regards #local script without sockets, you might give this a try:

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dump qw(dump);
use Hash::AutoHash::MultiValued;
use Storable qw(nfreeze thaw);

my $mvhash = new Hash::AutoHash::MultiValued->
names(tom => 'brady', brett => 'favre');
my $test = nfreeze($mvhash);
print dump(thaw($test)), "\n";
[download]