Select Code to Download

({
    "items": [
...
       }
        ]
})

my $dbh = DBI->connect("DBI:mysql:$dbname:$host", $usr, $pwd, {
                                  RaiseError => 1,
...
my $encoded = encode_json \%output;

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