sub post {
    my ($self, $text) = @_;
    my $ua     = $self->{'auth'}->user_agent;
    my $token  = $self->{'auth'}->access_token;
    my $header = {
        'Authorization:'             => 'Bearer ' . $token->{'access_token'},
        'X-Restli-Protocol-Version:' => '2.0.0',
        'Content-type:'              => 'text/json',
    };

    my $user = $self->get_id;
    my $json = {
        'owner'     => "urn:li:person:$user",
        'text'      => {
            'text'  => $text,
        },
    };
    
    $ua->default_header('Content-type' => 'text/json');
    return $ua->post(
        $self->{'auth'}->api_url_base . 'shares',
        Content => encode_json($json),
        $header,
    );
}

##</code><code>##

my $post = $linkedin->post("Some test text to post");
print Dumper $post;

##</code><code>##

'_request' => bless( {
                                        '_content' => '{"owner":"urn:li:person:GKiAGefMOA","text":{"text":"Some test text to post"}}',
                                        '_uri' => bless( do{\(my $o = 'https://api.linkedin.com/v2/shares')}, 'URI::https' ),
                                        '_headers' => bless( {
                                                               'user-agent' => 'libwww-perl/6.49',
                                                               'hash(0x29bc430)' => undef,
                                                               'content-type' => 'text/json',
                                                               'content-length' => 77,
                                                               '::std_case' => {
                                                                                 'hash(0x29bc430)' => 'HASH(0x29bc430)',
                                                                                 'if-ssl-cert-subject' => 'If-SSL-Cert-Subject'
                                                                               }
                                                             }, 'HTTP::Headers' ),
                                        '_method' => 'POST',
                                        '_uri_canonical' => $VAR1->{'_request'}{'_uri'}
                                      }, 'HTTP::Request' )

##</code><code>##

$VAR1 = bless( {
                 '_msg' => 'Illegal character VCHAR=\'(\'',
                 '_content' => '<h1>Bad Message 400</h1><pre>reason: Illegal character VCHAR=\'(\'</pre>',
                 '_protocol' => 'HTTP/1.1',
                 '_headers' => bless( {
                                        'x-li-fabric' => 'prod-lva1',
                                        'set-cookie' => [
                                                          'bcookie="v=2&101cb44b-4229-4298-8a92-c5269a7fc04b"; Domain=.linkedin.com; Expires=Fri, 12-May-2023 04:30:20 GMT; Path=/; Secure; SameSite=None',
                                                          'li_gc=MTswOzE2MjA3NTE5Njg7MjswMjH/a8hG8abKjZCHC2n5JOsrQCRqNMUbA1a8yBjKcfaoAw==; Domain=.linkedin.com; Expires=Fri, 05 May 2023 19:16:27 GMT; Path=/; Secure; SameSite=None',
                                                          'lidc="b=VB17:s=V:r=V:a=V:p=V:g=3729:u=1:i=1620751968:t=1620838368:v=2:sig=AQEnd1nC7PL_5JIHPskD72XlQtoH5ub6"; Expires=Wed, 12 May 2021 16:52:48 GMT; domain=.linkedin.com; Path=/; SameSite=None; Secure'
                                                        ],
                                        'date' => 'Tue, 11 May 2021 16:52:48 GMT',
                                        'client-ssl-cert-issuer' => '/C=US/O=DigiCert Inc/CN=DigiCert SHA2 Secure Server CA',
                                        'client-ssl-cipher' => 'ECDHE-RSA-AES128-GCM-SHA256',
                                        'client-peer' => '108.174.11.84:443',
                                        'client-date' => 'Tue, 11 May 2021 16:52:48 GMT',
                                        'content-type' => 'text/html;charset=iso-8859-1',
                                        'client-ssl-socket-class' => 'IO::Socket::SSL',
                                        'client-response-num' => 1,
                                        'x-li-uuid' => 'FCL5EFQRfhZA0AHZiSsAAA==',
                                        'content-length' => 70,
                                        '::std_case' => {
                                                          'x-li-fabric' => 'X-Li-Fabric',
                                                          'client-response-num' => 'Client-Response-Num',
                                                          'set-cookie' => 'Set-Cookie',
                                                          'x-li-uuid' => 'X-LI-UUID',
                                                          'client-ssl-cert-issuer' => 'Client-SSL-Cert-Issuer',
                                                          'client-ssl-cipher' => 'Client-SSL-Cipher',
                                                          'client-peer' => 'Client-Peer',
                                                          'client-date' => 'Client-Date',
                                                          'x-li-pop' => 'X-Li-Pop',
                                                          'client-ssl-cert-subject' => 'Client-SSL-Cert-Subject',
                                                          'x-li-proto' => 'X-LI-Proto',
                                                          'client-ssl-socket-class' => 'Client-SSL-Socket-Class'
                                                        },
                                        'x-li-pop' => 'prod-edc2',
                                        'client-ssl-cert-subject' => '/C=US/ST=California/L=Sunnyvale/O=LinkedIn Corporation/CN=tablet.linkedin.com',
                                        'x-li-proto' => 'http/1.1'
                                      }, 'HTTP::Headers' ),
                 '_rc' => 400,
                 '_request' => bless( {
                                        '_content' => '{"owner":"urn:li:person:GKiAGefMOA","text":{"text":"Some test text to post"}}',
                                        '_uri' => bless( do{\(my $o = 'https://api.linkedin.com/v2/shares')}, 'URI::https' ),
                                        '_headers' => bless( {
                                                               'user-agent' => 'libwww-perl/6.49',
                                                               'hash(0x29bc430)' => undef,
                                                               'content-type' => 'text/json',
                                                               'content-length' => 77,
                                                               '::std_case' => {
                                                                                 'hash(0x29bc430)' => 'HASH(0x29bc430)',
                                                                                 'if-ssl-cert-subject' => 'If-SSL-Cert-Subject'
                                                                               }
                                                             }, 'HTTP::Headers' ),
                                        '_method' => 'POST',
                                        '_uri_canonical' => $VAR1->{'_request'}{'_uri'}
                                      }, 'HTTP::Request' )
               }, 'HTTP::Response' );