Select Code to Download

my $returned_data = $data_handle->fetchall_arrayref ({});

...
print $q->header(-type => "application/json", -charset => "utf-8");
my $json = encode_json ($returned_data);
print $json;