Print $response->{content} on failure

From https://metacpan.org/pod/HTTP::Tiny,
      Errors during request execution will result in a pseudo-HTTP
      status code of 599 and a reason of "Internal Exception". The
      content field in the response will contain the text of the
      error.

1 files changed, 1 insertions, 1 deletions

diff --git a/draco.pl b/draco.pl
index 4dddcad..c659942 100755
--- a/draco.pl
+++ b/draco.pl
@@ -152,7 +152,7 @@ sub get_response {
     print STDERR "." if $DEBUG and scalar @http_calls > 0;
     my $response = $http->get($url);
     push @http_calls, $url;
-    die "Unexpected response - $response->{status}: $response->{reason} : $url"
+    die "\nUnexpected response - $response->{status}: $response->{reason}\n$response->{content} : $url"
         unless $response->{success};
     return $response;
 }