#!/usr/bin/perl

# The CheezyChat server application.  It spawns a
# server that manages new connections with the
# Chat class.
# Copyright 2004 by Rocco Caputo.  Free software.
# Same terms as Perl itself.  Have fun!

use warnings;
use strict;

use Server;

Server->spawn(
  BindPort  => 9999,
  ConnClass => "Chat",
);

Server->run();