Select Code to Download

#!/usr/bin/perl 
...
my $client = Frontier::Client->new( url   => $url, debug => 1 );

print "$args[0] + $args[1] = ", $client->call('sum', @args), "\n";

$ ./fcclient.pl 
---- request ----
...
</params>
</methodResponse>
2 + 5 = 7

plankton@ubuntu:/usr/lib/cgi-bin$ cat fcresponder.cgi 
#!/usr/bin/perl -w
...
                                                },
                                    );
print $res->answer;

plankton@ubuntu:/usr/lib/cgi-bin$ cat test_fcresonder.cgi 
#!/usr/bin/perl -w
...
my $result = $server->call($method, @args);

print "$result\n";

plankton@ubuntu:/usr/lib/cgi-bin$ ./test_fcresonder.cgi 
---- request ----
...
---- response ----

no element found at line 1, column 0, byte -1 at /usr/lib/perl5/XML/Pa
+rser.pm line 187