Select Code to Download

use JSON::XS 'encode_json', 'decode_json';

...
    binmode $fh;
    print $fh json_encode(\%results);
};