Select Code to Download

#!/usr/bin/perl
 #--------------------------
...
 }

1;

#!/usr/bin/perl

...

 # a la XMLRPC::Lite
 JSONRPC::Transport::HTTP::CGI->dispatch_to('MyApp')->handle();

#!/usr/bin/perl

...
        ->dispatch_to('MyApp/Test');

 $daemon->handle();

#!/usr/bin/perl

...
 my $client = JSONRPC::Transport::HTTP->proxy($uri);

 print $client->echo('This is test.'); # the alias, _echo is same.

[root@localhost ~]# client.pl
64
...
No such a method.
64
0

[root@localhost ~]# server.pl
[root@localhost ~]# server.pl
...
Content-Type: text/plain; charset=UTF-8