php.php

<?php
$com = 'perl6 -e \'use JSON::Fast; slurp.&from-json.reverse».uc.&to-json.put\'';
$data = ["foo", "bar", "ber", 42];
$process = proc_open(
    $com, [0 => ["pipe", "r"], 1 => ["pipe", "w"]],
    $pipes, '.', NULL
);
if (is_resource($process)) {
    fwrite($pipes[0], json_encode($data));
    fclose($pipes[0]);
    echo "Got answer: " . stream_get_contents($pipes[1]);
    fclose($pipes[1]);
    $return_value = proc_close($process);
}
?>