if ($append) { 
    open(MYOUTFILE, ">>filename.out"); # open for append
}
else 
{ 
    open(MYOUTFILE, ">filename.out"); #open for (over)write
}