FTP anon Scanner

#! /usr/bin/perl
#
# Simple Tool For checking
# FTP Session With Anonyme Access
# And you can use Range For Scan From .1 to .255
#
use Net::FTP;

$version = "1.0";
($ip1,$ip2) = @ARGV;
$ARG = @ARGV;
if(@ARGV eq 0)
{
        usage();
        print "[*] Target (Simple Scan) : ";
        $ip1=<STDIN>;
        chomp($ip1);
        print "[*] Target (using range Scan) : \n";
        $ip2=<STDIN>;
        chomp($ip2);
}
elsif ($ARG < 1)
{
        $ip1 = $ARGV[0];
        $ip2 = $ARGV[1];
}
else
{
        usage();
        exit;
}
sub usage  {
print q{
  ___  ______  ____
 /'___\/\__  _\/\  _`\      # FTP Anon Scanne First Vers
/\ \__/\/_/\ \/\ \ \L\ \    # Mr_AnarShi-T | M-A
\ \ ,__\  \ \ \ \ \ ,__/    # WWW.GaZa-HackeR.NeT
 \ \ \_/   \ \ \ \ \ \/     # Gr33t's : All my Friends :)
  \ \_\     \ \_\ \ \_\     # Perl $0 <Sv ip> (Simple Scan)
   \/_/      \/_/  \/_/     # Perl $0 12 127.0.0.1 127.0.0.255 (Range Scan)

};
}

$ip1 =~ m/(\d\d\d?).(\d\d?\d?).(\d\d?\d?).(\d\d?\d?)/;
($s1,$s2,$s3,$s4) = ($1,$2,$3,$4);
$ip2 =~ m/(\d\d\d?).(\d\d?\d?).(\d\d?\d?).(\d\d?\d?)/;
($t1,$t2,$t3,$t4) = ($1,$2,$3,$4);
$i=$s4;
open(RES,">>","Results.txt");
print "\n\t     ###########################################";
print "\n\t     ##             FTP Anon Scan             ##";
print "\n\t     ###########################################\n";
&scan;
sub scan {
if ($i<$t4+1) {
$ip1=$s1.".".$s2.".".$s3.".".$i;
print "\n\n[*] Testing... $ip1\n";
$ftp = Net::FTP->new("$ip1",Debug => 0,Timeout => 1) || $i++ & &scan;
$ftp->login("anonymous","[email protected]") || $i++ & &scan;
$ftp->quit;
print "[*] FOUND !!... $ip1\n";
print RES "$ip1\n";
$i++;
&scan;
}
if ($ip1 =~ $ip2) { &end }
}

sub end {
print "\n[*] D0ne !\n";
exit;
}
close(RES);