rednet.open("right")
while true do
    dank = peripheral.wrap("top")
    items = dank.list()
    i = 1
    perls = 0;
    while i <= table.getn(items) do
        item = items[i]
        perls = perls + item.count
        i = i + 1
    end
    term.clear()
    term.setCursorPos(1,1)
    print("enderperls", perls)
    text = "enderperls", perls
    rednet.send(text)
    os.sleep(1)
end