Select Code to Download

#!/usr/bin/perl
# test1.pl
...
);
print $q->header( -type => 'application/json' ),$json;

#!/usr/bin/perl

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