Select Code to Download

 #!/usr/bin/perl --
use strict;
use warnings;
...

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

 #!/usr/bin/perl --
use strict;
use warnings;
...
    return $json->encode({ c => $c });
}

#!/usr/bin/perl --
use strict;
use warnings;
...
    my $c = $a + $b;
    return $json->encode({ c => $c });
}

#!/usr/bin/perl --
use strict;
use warnings;
...
    my $c = $a + $b;
    return $json->encode({ c => $c });
}