Herramienta en Perl muy sencilla para el escaneo de equipos y redes TCP/IP