#!/usr/bin/perl
use strict;
use LWP;
use HTTP::Request::Common;

my @AoH = (
    {
       husband  => "barney",
       wife     => "betty",
       son      => "bamm bamm",
    },
    {
       husband => "george",
       wife    => "jane",
       son     => "elroy",
    },

    {
       husband => "homer",
       wife    => "marge",
       son     => "bart",
    },
  );
  
my $url = 'http://myurl.com/cgi-bin/memo.pl';
my $ua       = LWP::UserAgent->new;
my $request  = POST($url, Content => [data=>[@AoH]]);
my $response = $ua->request($request);
print $response->content, "\n";