Select Code to Download

use LWP::UserAgent;
use JSON;
...
} else {
    print "Error: " . $response->status_line . " - " . $response->cont
+ent . "\n";
}

$VAR1 = bless( {
                 '_protocol' => 'HTTP/1.1',
...
               }, 'HTTP::Response' );
JSON data was successfully returned!
malformed UTF-8 character in JSON string, at character offset 242 (bef
+ore "\x{fffd}che Union",\n...") at /Users/post.pl line 29.