view release on metacpan or  search on metacpan

examples/server.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
 
use lib qw(/home/httpd);
 
use warnings;
use strict;
 
use POE qw( Filter::Reference Component::Server::TCP);
use Apache::Backend::POE::Message;
 
$|++;
 
my %id_to_name;    # $id_to_name{$id} = $name;