From c7adf256d8ea64b5338bb35b53116e948a7d7479 Mon Sep 17 00:00:00 2001
From: MadCamel <madcamel@gmail.com>
Date: Thu, 9 Jan 2020 18:33:05 -0500
Subject: [PATCH] Added pure perl method

---
 README.md | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/README.md b/README.md
index 906ce36..fffca3b 100644
--- a/README.md
+++ b/README.md
@@ -40,6 +40,12 @@ Credit: @hakluke
 :py3 import os,signal;from subprocess import check_output;os.kill(int(check_output(["pidof","vim"]).decode
 ('utf-8')),signal.SIGTERM)
 ```
+
+## The pure perl way
+```perl
+:!perl -e 'while(</proc/*>){open($f, "$_/cmdline"); kill 9, substr($_,6) if <$f> =~ m|^vim\x00| }'  
+```
+
 ## The Rustacean's way
 Credit: @wodny