Select Code to Download

sub post {
    my ($self, $text) = @_;
...
        $header,
    );
}

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

'_request' => bless( {
                                        '_content' => '{"owner":"urn:l
+i:person:GKiAGefMOA","text":{"text":"Some test text to post"}}',
...
                                        '_method' => 'POST',
                                        '_uri_canonical' => $VAR1->{'_
+request'}{'_uri'}
                                      }, 'HTTP::Request' )

$VAR1 = bless( {
                 '_msg' => 'Illegal character VCHAR=\'(\'',
...
                                        '_uri_canonical' => $VAR1->{'_
+request'}{'_uri'}
                                      }, 'HTTP::Request' )
               }, 'HTTP::Response' );