Help for this page

Select Code to Download


  1. or download this
     #!/usr/bin/perl --
use strict;
use warnings;
...

print $q->header("application/json");
print $json->encode({ c => $c });
  2. or download this
     #!/usr/bin/perl --
use strict;
use warnings;
...
    return $json->encode({ c => $c });
}
  3. or download this
    #!/usr/bin/perl --
use strict;
use warnings;
...
    my $c = $a + $b;
    return $json->encode({ c => $c });
}
  4. or download this
    #!/usr/bin/perl --
use strict;
use warnings;
...
    my $c = $a + $b;
    return $json->encode({ c => $c });
}