Take a look at the first example in open. Once you open your file handle, replace <DATA> with <$your_filehandle> at the beginning of the loop.