my $append = 0;
my $cleanedFile = q{clean_text};
if ( $append )
{
    open my $cleanedFH, q{>>}, $cleanedFile
       or die qq{open: $cleanedFile for append: $!\n};
}
else
{
    open my $cleanedFH, q{>}, $cleanedFile
       or die qq{open: $cleanedFile for overwrite: $!\n};
}