$client->POST ('https://api.sixfold.com/v1/companies/296/carrier-shipm
+ents/0005360404/allocation',
[
'{"type":"vehicle", "vehicle_id":"39257" 
+}',
{Authorization => 'Bearer 096dd6e084d5f30fazzz', "Content-type" =>
+ 'application/json'}
]
); 

##</code><code>##

=head3 POST ( $url, [$body_content, %$headers] )
 
Preform an HTTP POST to the resource specified. Takes an optional body content and hashref of custom request headers.
 
=cut

##</code><code>##

#HTTP::Request POD
=head2 Simple POST
 
Here, we'll create a simple POST request that could be used to send JSON data
to an endpoint.
 
    #!/usr/bin/env perl
 
    use strict;
    use warnings;
 
    use Encode qw(encode_utf8);
    use HTTP::Request ();
    use JSON::MaybeXS qw(encode_json);
 
    my $url = 'https://www.example.com/api/user/123';
    my $header = ['Content-Type' => 'application/json; charset=UTF-8'];
    my $data = {foo => 'bar', baz => 'quux'};
    my $encoded_data = encode_utf8(encode_json($data));
 
    my $r = HTTP::Request->new('POST', $url, $header, $encoded_data);
    # at this point, we could send it via LWP::UserAgent
    # my $ua = LWP::UserAgent->new();
    # my $res = $ua->request($r);
=cut