#!/usr/bin/perl

use warnings;
use strict;

use Data::Dump qw(dump);

use LWP::UserAgent;
use PHP::Serialization;

my $test = [{lang => 'perl', name => 'uwe'},
            {lang => 'php',  name => 'manu'},
           ];

my $serialize = PHP::Serialization::serialize($test);
#print $serialize;

my $ua   = LWP::UserAgent->new;
$ua->credentials('manu:80', # :443 bei https
                 'My Realm', 'manu', 'manu',
                );

my $res  = $ua->post('http://manu/echo.php', {data => $serialize});
#print $res->as_string;

my $data = PHP::Serialization::unserialize($res->content);

dump($data);