diff --git a/src/perl/perl-fe.c b/src/perl/perl-fe.c
index ee19c5a2..17b57ee1 100644
--- a/src/perl/perl-fe.c
+++ b/src/perl/perl-fe.c
@@ -32,6 +32,9 @@
 
 static void cmd_script(const char *data, SERVER_REC *server, void *item)
 {
+	if (*data == '\0')
+                data = "list";
+
 	command_runsub("script", data, server, item);
 }