clearICMP :: String -> IO ()
clearICMP server = do
  iptables  ["-D", "INPUT", "-s", server, "-p", "icmp", "--icmp-type", "0", "-j", "DROP"]

              -- Clean up old socket if exists
          catch (removeFile socketPath) (\(_::SomeException) -> pure ())
          sock <- socket AF_UNIX Stream 0
          bind sock (SockAddrUnix socketPath)
          setFileMode socketPath 0o775
          listen sock 1
          forever $ do
            (conn, _) <- accept sock
            _ <- forkIO $ (handleClient conn ip)
            pure ()

    -- Clean up old socket if exists
  catch (removeFile socketPath) (\(_::SomeException) -> pure ())
  sock <- socket AF_UNIX Stream 0
  bind sock (SockAddrUnix socketPath)
  setFileMode socketPath 0o775
  listen sock 1

  forever $ do
    (conn, _) <- accept sock
    _ <- forkIO $ handleClient conn
    pure ()

handleClient :: Socket -> IO ()
handleClient conn = do

handleClient :: Socket -> String -> IO ()
handleClient conn ip = do

      clearICMP ip

      clearICMP ip