create text files perl