close($writefile) or die "#Error:$!";