rednet.open("top")
file = io.open("data", "r")
local perls = file:read()
file:close()
while true do
    id, mes = rednet.receive("Efarm", 1)
    if mes then
        perls = mes;
        file = io.open("data", "w")
        file:write(mes)
        file:flush()
        file:close()
    end
    rednet.broadcast("perl", perls)
    os.sleep()
end