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