Computercraft Turtle Recieve and Run File

function split(pString, pPattern)
   local Table = {}  -- NOTE: use {n = 0} in Lua-5.0
   local fpat = "(.-)" .. pPattern
   local last_end = 1
   local s, e, cap = pString:find(fpat, 1)
   while s do
          if s ~= 1 or cap ~= "" then
         table.insert(Table,cap)
          end
          last_end = e+1
          s, e, cap = pString:find(fpat, last_end)
   end
   if last_end <= #pString then
          cap = pString:sub(last_end)
          table.insert(Table, cap)
   end
   return Table
end

print("luisteren op kanaal 99.")
local m = peripheral.wrap("right")
m.open(99)
while true do
  local event,modemside,senderchannel,replychannel,message,senderdistance = os.pullEvent("modem_message")
  if (senderchannel==99) then
    s = split(message,"|")
    actie = s[1]
    naam = s[2]
    content = s[3]
    if (actie=="file") then
      print("Bestand ontvangen")
      print("Naam: ".. naam)
      f = fs.open(naam,"w")
      f.write(content)
      f.close()
    elseif (actie=="shell") then
      print("Commando: ".. naam)
      if(content~=nil) then
        print("Arguments: ".. content)
        shell.run(naam,content)
      else
        shell.run(naam)
      end
    end
  end
end