Select Code to Download

#!/usr/bin/perl
use warnings;
...
                               ticket      => JSON_TYPE_STRING,
                               message     => JSON_TYPE_STRING});
print $json;