use POSIX qw(setsid);
use IO::Socket;
use Socket;
use IO::Select;

$verb = 50;  # verbosity for console messages

$main = new IO::Socket::INET (LocalHost => '-not showing the ip here, sorry people',
                              LocalPort => 4448,
                              Listen    => 5,
                              Proto     => 'tcp', 
                              Reuse     => 1 ) || die $!;



$zero = chr(0);
$/ = $zero;
$\ = $zero;
$| = 1;

#&daemonize;

# Initialise IO::Select ---------------------------

$handles = new IO::Select->new($main);


print "Starting listening cycle\n" if ($verb > 1);


while(@send_pipe = $handles->can_read) {
.....
}