my $response_body;
   $curl->setopt(CURLOPT_WRITEDATA,\$response_body);
   print STDERR $response_body;

##</code><code>##

   my $response_body = "";
   open my $response_handle, '>', \$response_body;
   $curl->setopt(CURLOPT_WRITEDATA,\$response_handle);
   print STDERR $response_body;