select(STDERR); $|=1; print STDERR "$byte_size\n"; #### select((select(STDERR), $| = 1)[0]); print STDERR "$byte_size\n";