print Dumper %$request . "\n";

##</code><code>##

$VAR1 = '_content';
$VAR2 = 'visibility=HASH(0x26db708)&specificContent=HASH(0x26c2398)&lifecycleState=PUBLISHED&author=urn%3Ali%3Aperson%3AGKiAGefMOA';
$VAR3 = '_uri';
$VAR4 = bless( do{\(my $o = 'https://api.linkedin.com/v2/ugcPosts')}, 'URI::https' );
$VAR5 = '_headers';
$VAR6 = bless( {
                 'content-type' => 'application/x-www-form-urlencoded',
                 'content-length' => 121,
                 'hash(0x26db3a8)' => undef,
                 '::std_case' => {
                                   'hash(0x26db3a8)' => 'HASH(0x26db3a8)'
                                 }
               }, 'HTTP::Headers' );
$VAR7 = '_method';
$VAR8 = 'POST';