Как мне сбросить файл в Perl?

У меня есть сценарий Perl, который каждые 3 секунды добавляет новую строку к существующему файлу. Кроме того, существует приложение C ++, которое читает из этого файла.

Проблема в том, что приложение начинает читать файл после того, как сценарий выполнен и дескриптор файла закрыт. Чтобы избежать этого, я хочу сбрасывать после каждого добавления строки, но я ' Я плохо знаком с Perl и не знаю, как это сделать.