#!/usr/bin/perl

use strict;
use POE qw(
   Component::Server::TCP
);

POE::Component::Server::TCP->new(
   Alias => "MUD",
   Port  => '30000',

   InlineStates => {
      'send'   => \&handle_send,
   },

   ClientError        => \&c_error,
   ClientInput        => \&c_input,
   ClientConnected    => \&c_connect,
   ClientDisconnected => \&c_disconnect,
);

$poe_kernel->run();