Host Discover by Sub7

[Sub7]

Fala galera...

Depois de um tempo dando uma estudada, resolvi criar um programinha bem simples e funcional, mas que pode ajudar muito! Ele é o Host Discover...

O que é e como funciona?

O programa, como o próprio nome já diz, é utilizado para descoberta de hosts em sua rede interna.
Ele funciona juntamente com o protocolo ICMP, utilizando o Ping. Porém, você só consegue inserir um alvo por vez.
Ainda não consegui criar muito bem para o programa funcionar com vários host de uma vez. Mas logo consigo e já posto o código.

#!/usr/bin/perl -w

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

print "\t\t\t   Host Discover\n";
print "\t\t\t    Version 1.0\n";
print "\t\t\t   Coded by Sub7\n\n";
print "Endereço IP interno do alvo: ";
chomp (my $alvo = <STDIN>);

my $limite_seg = 10;

my $p = Net::Ping->new("icmp");

if($p->ping($alvo, $limite_seg) == 1){

	print "O host ".$alvo." está respondendo\n";

}else{

	print "O host ".$alvo.", não responde!\n";

}

$p->close();

PS: Você deve ser root para rodar o programa!

Espero que ajude vocês!