open(HANDLE, '< :encoding(cp1252)', $file)