#!/usr/bin/perl

# Server to illustrate POE::Wheel::SocketFactory
# and POE::Wheel::ReadWrite.
# 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 => "Connection",
);
Server->run();