# Read
    open(HANDLE, '<:via(File::BOM)', $filename)

    # Write
    open(HANDLE, '>:encoding(UTF-8):via(File::BOM)', $filename)