Wordpress Grabb Info

#!/usr/bin/perl
#                     ->Coder : CrashBandicot
#                      <4u>Magnom , Ghosty , HashCat , m0sta , Gastro-DZ , Hamid , M-A</4u>
#                      <a href="http://sec4ever.com" />
#                      <a href="http://www.exploit4arab.net" />
# Delete line 13 (use Win32::Console::ANSI;) If you are in Linux


use LWP::UserAgent;
use Term::ANSIColor;

if($^O =~ /Win/) {
use Win32::Console::ANSI;
system('cls');
system('title Wordpress Grabb Info');
system('color a');
} else { system('clear'); }
print "

                   +---------------------------------------+
                   |       Wordpress Grabb Info     ------+
                   |         by CrashBandicot       -----+
                   |            Perl Lov3r          ----+
                   +-----------------------------------+

";
print color("green"), "\n List Of Website .txt :";
print color 'reset';
chomp($list = <>);
open (file, "<$list") || die "[-] Can't open the List of site file !";
my @file = <file>;
close file;
print color("bold green"), "\n  [+] ".scalar(@file)." Website Charged\n"; print color 'reset';


foreach $lists(@file) {

$ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.1) Gecko/20090624 Firefox/3.5");
$zeb = $ua->get($lists)->content;

if($zeb =~ m/content="WordPress (.*?)"/)
{
    print color("green"), "\n>> $lists\n"; print color 'reset';
    print color("green"),"\n   [+] Wordpress Version : "; print color 'reset'; print $1;
} else {
    print color("green"), "\n>> $lists\n"; print color 'reset';
    print color("red"), "\n   [-] Wordpress Version : "; print color 'reset'; print "Not Found";
 }
if($zeb =~ m/wp-content\/themes\/(.*?)\//)
{ print color("green"),"\n   [+] Wordpress Themes : "; print color 'reset'; print $1; } else { print color("red"), "\n   [-] Themes : "; print color 'reset'; print "Not Found"; }
if($zeb =~ m/wp-content\/plugins\/(.*?)\//)
{ print color("green"),"\n   [+] Wordpress plugins : "; print color 'reset'; print $1; } else { print color("red"), "\n   [-] Wordpress plugins : "; print color 'reset'; print "Not Found"; }
if($zeb =~ /wp-content\/plugins\/revslider\//)
{ print color("green"),"\n   [+] Plugins Revslider : "; print color 'reset'; print "Found !"; } else { print color("red"),"\n   [-] Plugins Revslider : "; print color 'reset'; print "Not Found"; }

if($zeb =~ /<link rel="pingback"/)
{ print color("green"),"\n   [+] File xmlrpc.php : "; print color 'reset'; print "Found !\n"; } else { print color("red"), "\n   [-] File xmlrpc.php : "; print color 'reset'; print "Not Found\n" }

}