$append = 0;
if ($append)
{
open(MYOUTFILE, ">clean_text"); #open for write, overwrite }
else
{
open(MYOUTFILE, ">>clean_text"); #open for write, append
}