If you want to use non-blocking in sockets, you can use select by yourself, or just use IO::Select.

There are three solutions:
- fork
- multiplex the conections with just one process
- use threads

Here's an example of the multiplexion, that i read in advanced perl programing:

use IO::Socket;
use IO::Select;
my $server = IO::Socket::INET->new ...
my $select = IO::Select->new;
my $time = 0.5; # How time it waits to check for a new conection
$select->add($server);
while(1)
{
my ($sockets_ready) = IO::Select->select($select,
                                         undef, undef, $time);

foreach my $sock (@$sockets_ready) {
        if ($sock == $server) { # Accept a new conection
            my $new_sock = $sock->accept();
            $select->add($new_sock);
         }
         else {                 # Its an old conection
          ....
          }
}
[download]

I dont test the code, hope it works.
$anarion=\$anarion;

s==q^QBY_^=,$_^=$[x7,print