Select Code to Download

use LWP::UserAgent qw();
use JSON::MaybeXS qw(decode_json);
...
my $json_OCTETS = $res->content;
my $all_users_CHARACTERS = decode_json $json_OCTETS;
my $continue_aufrom_CHARACTERS = $all_users_CHARACTERS->{continue}{auf
+rom};

use Encode qw(encode);
my $continue_aufrom_OCTETS = encode('UTF-8', $continue_aufrom_CHARACTE
+RS, Encode::FB_CROAK);
STDOUT->print($continue_aufrom_OCTETS);

binmode STDOUT, ':encoding(UTF-8)';
STDOUT->print($continue_aufrom_CHARACTERS);