>perl -MIO::Handle -MFile::stat -le"open $fh, '>tmp'; print $fh 'foo'; for (1..2) { print stat('tmp')->size; $fh->flush }"
0
5