Select Code to Download

$ cat flush.pl
use warnings;
...
open(my $fh, '> /dev/null');

flush $fh;

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