##
open (NMAP_DATA, $ARGV[0]) or die "Please type the filename. $!" ;
##
##
open NMAP_DATA, '<', $ARGV[0] or die "Cannot open '$ARGV[0]' because: $!";
##
##
my @ip_address = sort $1, "\n" if /($RE{net}{IPv4})/;
print IP_DATA @ip_address if (!/^\s*$/);
##
##
print IP_DATA "$1\n" if /($RE{net}{IPv4})/;