#!/usr/bin/perl

# Simple TCP server to illustrate water marks.
# 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 => "Watermarks",
);
Server->run();