> I wouldn't bother with Perl at all in this case. A much better solution for scanning large networks and seeing what's alive is thcrut.
I've just tried to compile 'thcrut' in a sandbox - pure curiosity, since I've got a Perl script that does host discovery for me - and I've got to say that the message at the end of running 'configure' does not inspire much confidence in me.
[...]
Preprocessor flags: -I../pcre-3.9 -I../Libnet-1.0.2a/include -I/usr/l
+ocal/include
Linker flags: -L../pcre-3.9 -L../Libnet-1.0.2a/src -L/usr/local
+/lib
Libraries: -L/usr/local/lib -lpcre -lnet -lpcap -lnsl
+ _
+ _( (~\
_ _ /
+ ( \> > \
-/~/ / ~\ :; \
+_ > /(~\/
|| | | /\ ;\ |l _____ |; (
+ \/ > >
--------. _\\)\)\)/ ;;; `8o __-~ ~\ d|
+ \ //
* HELP * | ///(())(__/~;;\ "88p;. -. _\_;.oP
+ (_._/ /
* HELP * | (((__ __ \\ \ `>,% (\ (\./)8"
+ ;:' i
| )))--`.'-- (( ;,8 \ ,;%%%: ./V^^^V'
+ ;. ;.
I'M JUST | ((\ | /)) .,88 `: ..,,;;;;,-::::::'_::\ ||\
+ ;[8: ;
STUPID ! )| ~-~ |(|(888; ..``'::::8888oooooo. :\`^^^/,,~--._
+ |88:: |
WHITEHAT.|_____-===- /| \8;; ``:. oo.8888888888:`((( o.ooo8888O
+o;:;:' |
|. |_~-___-~_| `-\. ` `o`88888888b` )) 888b88888P
+""' ;
PLEASE | ; ~~~~;~~ "`--_`. b`888888888;(.,"888b888"
+..::;-'
DONT HURT | ; ; ~"-.... b`8888888:::::.`8888. .:;
+;;''
MEEEEEE! | ; ; `:::. `:::OOO:::::::.`OO' ;;;'
+'
| : ; `. "``::::::'' .'
* HELP * | ; `. \_ /
* HELP * | ; ; +: ~~-- `:' -';
__________! `: : .::/ -Tua
+Xiong
; ;;+_ :::. :..;;;
-=[ (C) THE HACKERS CHOICE - Estd. 1995 ]=- -=[ www.ircsnet.net /j #TH
+C ]=-
------=[ WHQ: http://www.thc.org ]=- - -=[ Enjoy your enemy... ]=-----
+-----
Configuration complete. Now type: make all install; thcrut -h
I don't know about you, but I'd much rather "bother" with a Perl script - especially since you'd need to run 'thcrut' as root to get any useful action. I'll leave the dubious pleasure of carefully vetting several hundred K of C code to someone else.
--
Human history becomes more and more a race between education and catastrophe. -- HG Wells