First of all, I'd recommend you use IO::Socket - it's much nicer than raw socket syscalls and secondly, you're very likely blocking on the print $ClientHandel call because of buffering. At the very least you should enable autoflushing.