Select Code to Download

#!/usr/bin/perl

...
my $j = decode_json($_);
print "ok\n";
print "keys are: ".join("\n",keys(%$j))."\n";