test.sh

http_proxy= curl -X POST -H "content-type: application/json" \                                                                                                                                            
    http://localhost:8098/mapred --data @-<<\EOF
{"inputs":[["welcome","german"]]
,"query":[{"map":{"language":"perl","source":"
sub {
  my ($m) = lc(shift->{values}[0]{data}) =~ /(\w*)/;
  my @r
  for my $i (@$m) {
    if($i ne '') {
      push @r, { $i => 1 };
    }
  }
  return \@r;
}
"}},{"reduce":{"language":"perl","source":"
sub {
    ...
}
"}}]}
EOF