Select Code to Download

#!/usr/bin/perl

use strict;
...
say $request->decoded_content;

say Dumper $request;

{"file_ids":[1,2],"name":"test name","sub":{"message":"bar","name":"fo
+o"}}
$request = bless( {
                    '_content' => '{"file_ids":[1,2],"name":"test name
+","sub":{"message":"bar","name":"foo"}}',
...
                                         }, 'HTTP::Headers' ),
                    '_method' => undef
                  }, 'HTTP::Request::JSON' );