#!/usr/bin/perl

use warnings;
use strict;

use CmdRun::Client;

my $cr = CmdRun::Client->new(
    host => 'localhost',
    port => 8023,
);
while (1) {
    my @cmd = $cr->cmd('fortune');
    shift @cmd;
    print join '', @cmd;
    sleep 5;
}
$cr->quit();