Mass Ping

#!/usr/bin/perl
#Gr33tz to Boualem,M-A labz , All Gantengers-crews.org
#Soon V2 Perfect *.*
use HTTP::Request;
use LWP::UserAgent;
use Term::ANSIColor;
use Win32::Console::ANSI;
if($^O =~ /Win/){

   system("cls");
  system('title Mass Ping');

}else{

   system("clear");
}
print color("bold red"), "\n\t\t\tMass Ping TOols\n\n\n";
print color 'reset';
print color("green"),  "List Of Website .txt (without http://):";
print color 'reset';
$host = <>;
chomp($host);
 open (file, "<$host") || die "[-] Can't open the List of site file !";
my @file = <file>;
close file;
print color("green"), "\nNumber Of Websites to Scan : ";
print color("blue"), "".scalar(@file)."\n";
print color 'reset';
foreach $hosts(@file) {
$zeb = "http://baremetal.com/cgi-bin/dnsip?target=".$hosts."";
$fuck = LWP::UserAgent->new();
$klawii = $fuck->request(HTTP::Request->new(GET=>$zeb));
$ipp = $klawii->content;
if($ipp =~ m/<b>(.*?)<\/b><\/font>/) {

  $print = "\n [+] $hosts >> $1 \n";
  print "$print";
  sleep(1);
  open (a, ">>ping.txt");
  print a  "$print";
  close a;
}
}