diff --git a/refresh_modules.cgi b/refresh_modules.cgi
new file mode 100755
index 000000000..89056fa13
--- /dev/null
+++ b/refresh_modules.cgi
@@ -0,0 +1,26 @@
+#!/usr/local/bin/perl
+# Refresh the list of visible modules
+
+BEGIN { push(@INC, ".."); };
+use WebminCore;
+
+&init_config();
+&ReadParse();
+&foreign_require("webmin", "webmin-lib.pl");
+
+&ui_print_unbuffered_header(undef, $text{'refreshmods_title'}, "", undef, 0, 1);
+
+# Re-run install checks
+&flush_webmin_caches();
+print $text{'refreshmods_installed'},"<br>\n";
+$installed = &webmin::build_installed_modules(1);
+@not = grep { $installed->{$_} eq '0' } (keys %$installed);
+@got = grep { $installed->{$_} ne '0' } (keys %$installed);
+print &text('refeshmods_counts', scalar(@not), scalar(@got)),"<p>\n";
+
+# Refresh left frame, if possible
+if (defined(&theme_post_change_modules)) {
+	&theme_post_change_modules();
+	}
+
+&ui_print_footer();