Select Code to Download

sub portScan {
        print "Port Scan - ";
...
        #print "$hostname - ".$hash{$key}{'Ports Open'} . "\n";
}

#!/usr/bin/perl

@OU=`/usr/bin/nmap -v -v -v -sS -p 1-1024,5555,8000-8200 -O --max-rtt-
+timeout 100ms --max-retries 2 -T aggressive host.mydomamin.com -oX -`
+;

print @OU;