See Re: what is the best method to read and write in a file in perl by jakeease and the main thread