Script Required to Check a range of IP's

[Mazhar]

Hi Folks,

I have a requirement of writing down a script to check the range of IP's in
a text file and display them which all are active and not active.

I have written down the below and needs your help because it is not giving
me the correct ouptut.

################################################################
#!/usr/bin/perl

use strict;
use warnings;
use Net::Ping;

my $file_name=$ARGV[0];
my $line;
my @host_array;

open(FILE,"$file_name") || die "Not been Accessed";

while (<FILE>) {
 chomp;
 @host_array=$_;
}

my $p = Net::Ping->new();
foreach my $host (@host_array)
   {
       print "$host is ";
       print "NOT " unless $p->ping($host, 2);
       print "reachable.\n";
       sleep(1);
   }
$p->close();

close (FILE);

###########################################################

Needs your help on the above

Regards
Mazhar