Select Code to Download

#!/usr/bin/perl
use warnings;
...
                         Content => encode_json({key => 'value'}));

print $response->decoded_content;