The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl

use warnings;
use strict;

use POE qw/Component::Jabber::Server/;

POE::Component::Jabber::Server->new
(
	'ip'				=> '127.0.0.1',
	'port' 				=> '5222',
	'hostname'			=> 'localhost',
	'registrar'			=> 'foo.db',
	'roster'			=> 'roster.db',
	'idle_check'		=> '30',
	'idle_timeout'		=> '10',
	'bandwidth_limit'	=> '10000',
	'private'			=> './keys/privkey.pem',
	'certificate'		=> './keys/server.pem',

	'debug'				=> '1',
);

$poe_kernel->run();