Select Code to Download

$|=1;

# and perhaps after your accept() call:

$new_sock->autoflush;

my $res = $sock->fcntl(F_GETFL, 0);
$sock->fcntl(F_SETFL, $res | O_NONBLOCK);