Select Code to Download

#!/usr/bin/perl
use strict;
...
</html>
END_HTML

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