#!/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";

##</code><code>##

#!/usr/bin/perl -Tw

use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper qw(Dumper);
print header;


my $q = CGI->new();
my @data = $q->param('data');

if (param('data')) {
   print "you sent ", param('data');
}
else {
   print "error";
   ;
}

foreach my $href (@data) {
   foreach my $key (keys(%$href)) {
       print "key: $key, value: $href->{$key}\n";
   }
}