Select Code to Download

#!/usr/bin/env perl

...
print $q->header("application/json");
print $json->encode({ c => $c });

#!/usr/bin/env perl

...

my $result = $json->decode( $ua->request($req)->decoded_content );
print $result->{c}, "\n";