$ perl -MO=Deparse flush.pl
use warnings;
use strict;
open my $fh, '> /dev/null';
$fh->flush;
flush.pl syntax OK