Select Code to Download

use strict;
use warnings;
...
else{
    print " inside falied block\n";
}

#use cgi.pm to get json as input
    my $q = CGI->new;
...
    print $q->header("application/json");
    #print Dumper($input);
    print $json->encode({ c => $c });