sub request {
    my ($self, $request, @rest) = @_;
    return $self->access_token->request($self, $request, @rest); # <- line 107
}

sub access_token {
    my $self = shift;
 
    return $self->{access_token};
}

##</code><code>##

my $params = {
	'content'    => {
		'title'       => 'Test Title',
		'descrition'  => 'Test message',
	},
};
my $res = $linkedin->post('https://api.linkedin.com/v2/shares', $params);
if ($res) {
	print "Content-type: text/plain\n\n";
	print $res;
	exit 0;
}