$ cat flush.pl
use warnings;
use strict;

open(my $fh, '> /dev/null');

flush $fh;

##</code><code>##

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