$ perl server.pl
Waiting to do service...
Client: 127.0.0.1 Connected..
AoH: $VAR1 = [
          {
            'son' => 'bamm bamm',
            'wife' => 'betty',
            'husband' => 'barney'
          },
          {
            'son' => 'elroy',
            'wife' => 'jane',
            'husband' => 'george'
          },
          {
            'son' => 'bart',
            'wife' => 'marge',
            'husband' => 'homer'
          }
        ];