Select Code to Download

{"748847":"Jane Deo"}

use DBI;
use JSON::XS;
...
my $json;
$json->{data} = $dbh->selectall_arrayref('SELECT idnum, fname FROM dbu
+ser', {Slice => {}} );
warn encode_json( $json );

print "Content-type: text/html\n\n";