use AnyEvent;
use AnyEvent::HTTP::Request;
use AnyEvent::HTTP::Response;

my $mtgox = Local::Finance::MtGox->new({ key => 'key', secret => 'secret' });
my $cv = AE::cv;
my $req = AnyEvent::HTTP::Request->new(
    # Returns an HTTP::Request
    $mtgox->_build_api_method_request(POST => 'getFunds'),
    {
        cb => sub {
            my $res = AnyEvent::HTTP::Response->new(@_)->to_http_message;
            dd $res;
            $cv->send;
        }
    }
);
$req->send;

$cv->wait;