Subdomain Checker v1.0

#!/usr/bin/perl
#Gr33tz to Boualem,M-A labz , All Gantengers-crews.org
#Soon V2 Perfect *.*
#Tutorial : http://img15.hostingpics.net/pics/635119sub.gif

use HTTP::Request;
use LWP::UserAgent;
if($^O =~ /Win/){

   system("cls");
   system("color a");
   system("title SubDomain Checker v1");

}else{

   system("clear");
}
print q{

                          *------------------------*
                          | SubDomain Checker V1.0 |
                          |  by CrashBandicot      |
                          *------------------------*
                                      |
                                      |
                         +--------------------------+
                         |Special Greetz to Iheb    |
                         |& all gantengers-crews.org|
                         +--------------------------+


};
sleep(1);

print "Target (without http://) :";
$host = <>;
chomp($host);
$zeb = "http://www.ewhois.com/".$host."\/";
$fuck = LWP::UserAgent->new();
$klawii = $fuck->request(HTTP::Request->new(GET=>$zeb));
$ipp = $klawii->content;
if($ipp =~ m/<span id=\"ip_display\">(.*?)<\/span>/) {

  print "\n [+] Host IP : $1 \n";
}

$tbone = LWP::UserAgent->new();
    $tbone->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; de-LI; rv:1.9.0.16) Gecko/2009120208 Firefox/3.0.16 (.NET CLR 3.5.30729)');
    $tembaka = "http://www.pagesinventory.com/search/?s=".$host."";
    $klawi = $tbone->request(HTTP::Request->new(GET=>$tembaka));
    $resullt = $klawi->content;

while($resullt =~ m/<td><a href=\"\/domain\/(.*?).html\">/g ) {

  print "\n     [*]Subdomain: $1\n";
  sleep(1);
  open(a, ">>sub.txt");
print a "http://$1\n";
close(a);

}
print "\n\nResult in sub.txt\n";

if($^O =~ /Win/){

   system("start http://forum.gantengers-crews.org/");

}else{

   system("firefox http://forum.gantengers-crews.org/");
}