#!/usr/bin/perl -w

use strict;
use Frontier::Daemon;
use Digest::MD5 qw/md5_hex/;

Frontier::Daemon->new (LocalPort => 12345,
                       methods =>{md5=>sub {return md5_hex (shift)}});

__END__

##</code><code>##

#!/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__

##</code><code>##

sub my_md5_hex {
    my ($str) = @_;
    my $cmd = "perl -MDigest::MD5 -e " .
        "'print Digest::MD5::md5_hex (\"$str\"), \$/'";
    my $md5 = `$cmd`;
    chomp ($md5);
    return $md5;
}