Perl: Очистить содержимое файла и открытого файла в режиме Append

Мне нужно открыть файл в Append режим в Perl, но мне нужно, что перед открытием файла все данные удалены и свежие Данные входят.

Я буду вводить строку данных по строке, поэтому перед входом в первую строку мне нужны все предыдущие данные.

Пожалуйста, помогите.