Bad header argument at 1185916.pl line 20.

##</code><code>##

#!/usr/bin/perl
use strict; use warnings;
use HTTP::Tiny;
use JSON;
use Data::Dumper;

my $url = "https://site.com/api/inforequests";
my $json = encode_json {
    name    => 'john',
    country => 'ca',
    email   => 'john@email.com',
};

my $http = HTTP::Tiny->new(
    default_headers => {
        Authorization => 'Token xert345llkd736gdy3',
    }
);

my $response = $http->post( $url => {
    content => $json,
    headers => { 'Content-Type' => 'application/json' },
});

if ( $response->{'is_success'} ) {
  print Dumper( decode_json $response->{'content'} );
} else {
  print "$response->{'status'} $response->{'reason'}\n";
}

__END__