in reply to flushing a filehandle in PurePerl

maybe that will work: 
select FOO;
$| = 1;
print FOO "";

[download]

In Section Seekers of Perl Wisdom