Thnks for pointing this out for me Salva, but i still have same problem:

# ./client.pl
Command> uname
Linux
[download]

Here is the code after sugested changes:

sub listen() {
$local = IO::Socket::INET->new(Listen=>1,
                               Proto=>'tcp',
                               LocalAddr=>'eth0',
                               LocalPort=>5000,
                               ReuseAddr=>1,) or die "$!";
$local->autoflush(1);
$sel = new IO::Select($local);
while(@ready = $sel->can_read) {
        print "Command> ";
        foreach $fh (@ready) {
            if($fh == $local) {
                # Create a new socket
                $new = $local->accept;
                $sel->add($new);
                $comm = <STDIN>;
                print $new $comm;
                sub closeback() {exit(0)}
                while(sysread($new,$buffer,1024)) {
                        print $buffer
                }
            }
    }
}
}
[download]

It`s still freezing, what is wrong? Thank you!