nmap scan

nmapscan.pl

#!/usr/bin/perl
# usage .txt file with ip - hostnames one per line
#requires root
my @ports = (20, 21, 22, 80, 443, 445); #add tcp ports here.

          print "\nService version 7 status\n";
          print "\===============================\n";

          while (defined($ipaddr = <>)) {
          chomp ($ipaddr);

          print "$ipaddr:\n\n";

          $nmap = "echo QUIT | nmap -sS -O $ipaddr $ports";
          system ("$nmap");

          print "=================================================\n";
}