my $dbh = DBI->connect("DBI:mysql:$dbname:$host", $usr, $pwd, {
	                              RaiseError => 1,
								  }) or die $DBI::errstr;

my $sth = $dbh->prepare("SELECT titles FROM tbl_1");
$sth->execute();
my $Data = $sth->fetchall_arrayref();
my $output;

foreach my $Data (@$Data) {
	
my ($title) = @$Data; 

$output{items} ||= [];
push @{$output{items}}, {title => $title};
}

my $encoded = encode_json \$output;

print $Cgi->header( -type => 'application/json' ),$encoded;