open my $fh, '<', "linkedin.json";
my $json;
{
	local $/;
	$json = <$fh>;
}
close $fh;

$params = decode_json($json);

my $header = {
	'X-Restli-Protocol-Version:' => '2.0.0',
};

print Dumper $params;
print "\n\n============\n\n";
my $res = $linkedin->post('https://api.linkedin.com/v2/ugcPosts', $params, $header);
if ($res) {
	print Dumper $res;
	exit 0;
}