I have no objection to the function of this code, but surely on this site the focus should be on the use of Perl.

If the script provided additional functionality (e.g. using Spreadsheet::WriteExcel to present a report on all hosts on a network), or was presented for use in situations where nmap was not available (e.g. using Perl on a Psion netBook to check security on a wireless network), then it should be posted here.

As it is, I do not see that value is being added.

Update:
Although on the other hand I may have refuted my own argument - without this node, I would not necessarily have thought about the two examples I gave.

It's late...

JJ