use communication;
use strict;

my $communication = communication->new;
my $input = "welcome";

while ($input ne "exit") {
	$communication->getNew();
	$communication->message($input);
	print "->";
	$input = <STDIN>;
	chomp($input);
}