#!/usr/local/bin/perl 

use strict;
use MPG::Chat;


my $port   = 7777;
my $s_name = "Chat server 1";

my $server = MPG::Chat::Server->new( port => $port,
				     name => $s_name,
				     );
$server->start;