perl -MIO::Handle -e ' print 1; print STDERR 33; sleep 1; print 2';