#!/usr/bin/perl -wT

use strict;
use warnings;
use DBI;
use JSON;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

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 $Test = $dbh->prepare("SELECT idnum, fname FROM dbuser");
$Test->execute();


my (@data,$idnum,$fname);
 
 
 foreach (@data = $Test->fetchrow_array()) {
    $idnum = $data[0];
    $fname = $data[1];

}

print "Content-type: text/html\n\n";
my $json = encode_json(
  { $idnum, $fname}
);
print $json;