$ perl piwigo_remote.pl --base_url=http://vivrenvoyage.com/yuri/piwigo --user=plg --pass=*** --action=pwg.categories.getList
$VAR1 = bless( {
                 '_protocol' => 'HTTP/1.1',
                 '_content' => '{"stat":"fail","err":400,"message":"Unknown request format"}',
                 '_rc' => '400',
                 '_headers' => bless( {
                                        'connection' => 'close',
                                        'x-powered-by' => 'PHP/5.2.6',
                                        'client-response-num' => 1,
                                        'cache-control' => 'no-store, no-cache, must-revalidate, post-check=0, pre-check=0',
                                        'date' => 'Mon, 17 Aug 2009 21:55:07 GMT',
                                        'client-peer' => '64.71.235.251:80',
                                        'client-date' => 'Mon, 17 Aug 2009 21:55:07 GMT',
                                        'content-type' => 'text/plain; charset=utf-8',
                                        'pragma' => 'no-cache',
                                        'client-transfer-encoding' => [
                                                                        'chunked'
                                                                      ],
                                        'server' => 'Apache/1.3.37',
                                        'expires' => 'Thu, 19 Nov 1981 08:52:00 GMT'
                                      }, 'HTTP::Headers' ),
                 '_msg' => 'Unknown request format',
                 'handlers' => {
                                 'response_data' => [
                                                      {
                                                        'callback' => sub { "DUMMY" }
                                                      }
                                                    ]
                               },
                 '_request' => bless( {
                                        '_content' => 'method=pwg.categories.getList',
                                        '_uri' => bless( do{\(my $o = 'http://vivrenvoyage.com/yuri/piwigo/ws.php?format=json')}, 'URI::http' ),
                                        '_headers' => bless( {
                                                               'cookie2' => '$Version="1"',
                                                               'user-agent' => 'libwww-perl/5.825',
                                                               'content-type' => 'application/x-www-form-urlencoded',
                                                               'cookie' => 'pwg_id=ibq035v75304spu7mn7ttp5ue2',
                                                               'content-length' => 29,
                                                               'authorization' => 'Basic cGxnOnowcmdsdWI='
                                                             }, 'HTTP::Headers' ),
                                        '_method' => 'POST',
                                        '_uri_canonical' => $VAR1->{'_request'}{'_uri'}
                                      }, 'HTTP::Request' )
               }, 'HTTP::Response' );