Select Code to Download

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

my $dbh = DBI->connect("DBI:mysql:$dbname:$host", $usr, $pwd, {
                                  RaiseError => 1,
...

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