The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package MyService;

use strict;
use warnings;

use base qw(JSON::RPC::Simple);

sub echo : JSONRpcMethod(text) {
    my ($self, $request, $args) = @_;
    return reverse $args->{text};
}

1;