Select Code to Download

open (NMAP_DATA, "@ARGV") or die "Please type the filename. $!" ;

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})/;