{"748847":"Jane Deo"}

##</code><code>##

use DBI;
use JSON::XS;

my $host =   "host";
my $usr =    "user";
my $pwd =    "pwd";
my $dbname = "datname";

my $dbh = DBI->connect("DBI:mysql:$dbname:$host", $usr, $pwd, {
                                  RaiseError => 1,
                                  }) or die $DBI::errstr;
my $json;
$json->{data} = $dbh->selectall_arrayref('SELECT idnum, fname FROM dbuser', {Slice => {}} );
warn encode_json( $json );

##</code><code>##

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