Hi. I've been trying to write simple server.
#!/usr/bin/perl
use strict;
use IO::Socket;
use IO::Select;
my $main = new IO::Socket::INET (LocalHost => 'localhost',
LocalPort => 6677,
Listen => 5,
Proto => 'tcp',
Reuse => 1
);
die unless $main;
$SIG{'CHLD'} = sub {
wait;
}...