#!/usr/bin/perl -w

use strict;
use Frontier::Client;

my $rpc = Frontier::Client->new (url =>"http://localhost:12345/RPC2");
print $rpc->call ("md5", "1234"), $/;

__END__