$ cat flush.pl
use warnings;
use strict;

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

flush $fh;