#! /usr/bin/perl
use warnings;
use strict;
use IPC::Message::Minivan;

my $van = IPC::Message::Minivan->new(host => 'localhost'); # port => 6826 is the default
my $i = 1;
while (1) {
	$van->msg("c1", $i);
	$i++;
	sleep 2;
}
