diff --git a/libexec/flua/linit_flua.c b/libexec/flua/linit_flua.c
index 4b4069e9ad62..99818c3b4db7 100644
--- a/libexec/flua/linit_flua.c
+++ b/libexec/flua/linit_flua.c
@@ -1,73 +1,74 @@
 /* $FreeBSD$ */
 /*
 ** $Id: linit.c,v 1.39.1.1 2017/04/19 17:20:42 roberto Exp $
 ** Initialization of libraries for lua.c and other clients
 ** See Copyright Notice in lua.h
 */
 
 
 #define linit_c
 #define LUA_LIB
 
 /*
 ** If you embed Lua in your program and need to open the standard
 ** libraries, call luaL_openlibs in your program. If you need a
 ** different set of libraries, copy this file to your project and edit
 ** it to suit your needs.
 **
 ** You can also *preload* libraries, so that a later 'require' can
 ** open the library, which is already linked to the application.
 ** For that, do the following code:
 **
 **  luaL_getsubtable(L, LUA_REGISTRYINDEX, LUA_PRELOAD_TABLE);
 **  lua_pushcfunction(L, luaopen_modname);
 **  lua_setfield(L, -2, modname);
 **  lua_pop(L, 1);  // remove PRELOAD table
 */
 
 #include "lprefix.h"
 
 
 #include <stddef.h>
 
 #include "lua.h"
 
 #include "lualib.h"
 #include "lauxlib.h"
 #include "lfs.h"
 #include "lposix.h"
 
 /*
 ** these libs are loaded by lua.c and are readily available to any Lua
 ** program
 */
 static const luaL_Reg loadedlibs[] = {
   {"_G", luaopen_base},
   {LUA_LOADLIBNAME, luaopen_package},
   {LUA_COLIBNAME, luaopen_coroutine},
   {LUA_TABLIBNAME, luaopen_table},
   {LUA_IOLIBNAME, luaopen_io},
   {LUA_OSLIBNAME, luaopen_os},
   {LUA_STRLIBNAME, luaopen_string},
   {LUA_MATHLIBNAME, luaopen_math},
   {LUA_UTF8LIBNAME, luaopen_utf8},
   {LUA_DBLIBNAME, luaopen_debug},
 #if defined(LUA_COMPAT_BITLIB)
   {LUA_BITLIBNAME, luaopen_bit32},
 #endif
   /* FreeBSD Extensions */
   {"lfs", luaopen_lfs},
+  {"posix.sys.stat", luaopen_posix_sys_stat},
   {"posix.unistd", luaopen_posix_unistd},
   {NULL, NULL}
 };
 
 
 LUALIB_API void luaL_openlibs (lua_State *L) {
   const luaL_Reg *lib;
   /* "require" functions from 'loadedlibs' and set results to global table */
   for (lib = loadedlibs; lib->func; lib++) {
     luaL_requiref(L, lib->name, lib->func, 1);
     lua_pop(L, 1);  /* remove lib */
   }
 }
 
diff --git a/libexec/flua/modules/lposix.c b/libexec/flua/modules/lposix.c
index 208802456fed..adf3a7bb9a1f 100644
--- a/libexec/flua/modules/lposix.c
+++ b/libexec/flua/modules/lposix.c
@@ -1,63 +1,101 @@
 /*-
  * Copyright (c) 2019 Kyle Evans <kevans@FreeBSD.org>
  *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
  * are met:
  * 1. Redistributions of source code must retain the above copyright
  *    notice, this list of conditions and the following disclaimer.
  * 2. Redistributions in binary form must reproduce the above copyright
  *    notice, this list of conditions and the following disclaimer in the
  *    documentation and/or other materials provided with the distribution.
  *
  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  * SUCH DAMAGE.
  *
  */
 
 #include <sys/cdefs.h>
 __FBSDID("$FreeBSD$");
 
+#include <sys/stat.h>
+
+#include <errno.h>
+#include <string.h>
 #include <unistd.h>
 
 #include <lua.h>
 #include "lauxlib.h"
 #include "lposix.h"
 
 /*
  * Minimal implementation of luaposix needed for internal FreeBSD bits.
  */
 
+static int
+lua_chmod(lua_State *L)
+{
+	int n;
+	const char *path;
+	mode_t mode;
+
+	n = lua_gettop(L);
+	luaL_argcheck(L, n == 2, n > 2 ? 3 : n,
+	    "chmod takes exactly two arguments");
+	path = luaL_checkstring(L, 1);
+	mode = (mode_t)luaL_checkinteger(L, 2);
+	if (chmod(path, mode) == -1) {
+		lua_pushnil(L);
+		lua_pushstring(L, strerror(errno));
+		lua_pushinteger(L, errno);
+		return 3;
+	}
+	lua_pushinteger(L, 0);
+	return 1;
+}
+
 static int
 lua_getpid(lua_State *L)
 {
 	int n;
 
 	n = lua_gettop(L);
 	luaL_argcheck(L, n == 0, 1, "too many arguments");
 	lua_pushinteger(L, getpid());
 	return 1;
 }
 
 #define REG_SIMPLE(n)	{ #n, lua_ ## n }
+static const struct luaL_Reg sys_statlib[] = {
+	REG_SIMPLE(chmod),
+	{ NULL, NULL },
+};
+
 static const struct luaL_Reg unistdlib[] = {
 	REG_SIMPLE(getpid),
 	{ NULL, NULL },
 };
 #undef REG_SIMPLE
 
+int
+luaopen_posix_sys_stat(lua_State *L)
+{
+	luaL_newlib(L, sys_statlib);
+	return 1;
+}
+
 int
 luaopen_posix_unistd(lua_State *L)
 {
 	luaL_newlib(L, unistdlib);
 	return 1;
 }
diff --git a/libexec/flua/modules/lposix.h b/libexec/flua/modules/lposix.h
index 4c771d79769f..d2d9ec0cd677 100644
--- a/libexec/flua/modules/lposix.h
+++ b/libexec/flua/modules/lposix.h
@@ -1,11 +1,12 @@
 /*-
  *
  * This file is in the public domain.
  */
 /* $FreeBSD$ */
 
 #pragma once
 
 #include <lua.h>
 
+int luaopen_posix_sys_stat(lua_State *L);
 int luaopen_posix_unistd(lua_State *L);