#!/usr/bin/perl
use strict;
use lib qw(/home/ilia/byob/perllib);
use JSONRPC::Transport::HTTP;

my $daemon = JSONRPC::Transport::HTTP::Daemon
       ->new(LocalPort => 8080)
       ->dispatch_to('Finance/Bank/JSONFactory');

$daemon->handle();