Wordpress Themes Grabber

#!/usr/bin/perl
# m-a_labz
# WwW.janissaries.OrG
use strict;
use threads;
use threads::shared;
use WWW::Mechanize;
use Term::ANSIColor;
use Win32::Console::ANSI;
use HTTP::Request;
use LWP::Simple;
#Threads Nember :)
my $threads = 5;

my $ua = LWP::UserAgent->new;
$ua->timeout(15);
$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.1) Gecko/20090624 Firefox/3.5');

my @links : shared;
print color("bold red"), q{
[+] Wordpress Themes Grabber
[+]               www.janissaries.org
};print color("reset");
print "\[.] Starting...\n";
GetLinks();
print color("bold yellow"),"[+] Quantity of Links:";print color 'reset';print color("green")," " .scalar(@links)."\n";
print color 'reset';
print "[.] Begin work...\n\n";
print color("bold red"),"[+] Searching Themes\n\n";
print color 'reset';
Get_Themes();
while (threads->list) {}
sub Get_Themes {
        foreach my $link( @links ) {
                my  $ctr = 0;
                foreach my $thr ( threads->list ) { $ctr++; }
                if ($ctr < $threads){
                        threads->create( \&Check_Themes,$link );
                }
                else { redo; }
        }
}

sub GetLinks {
        open( DOM, "sites.txt" ) or die "$!\n";
        while( defined( my $line_ = <DOM> ) ) {
                chomp( $line_ );
                push( @links, $line_ );
        }
        close( DOM );
}
sub Check_Themes {
        my $link = shift;
        chomp( $link );
        print "[+] ".$link."\n";
        my $url = "http://".$link."/";
        my $request = HTTP::Request->new(GET=>$url);
        my $response = $ua->request($request);
        if ($response->content=~/wp-content\/themes\/(.*?)\//g){
        my $theme = $1;
        print color("bold yellow"),"\n[+] ".$link."\n";print color 'reset';
        print "=>";print color("green"),"".$theme."\n\n";print color 'reset';
        open(TNN,">>log.txt");
        print TNN "$link\n";
        print TNN "=>$theme\n\n";
        close(TNN);
        }else{
        print "[+]faild to get Theme !!\n";
        }
        threads->detach();
}