sub portScan {
        print "Port Scan - ";
        $key = shift;
        my $hostname = $hash{$key}{"Address - FQDN"};
        my $scanner = new Nmap::Scanner;
        $scanner->register_scan_started_event(\&scan_started);
        $scanner->debug(1);
        $scanner->register_scan_complete_event(\&scan_ended);
        $scanner->register_port_found_event(\&port_found);
        $scanner->scan('-sS -p 1-1024,5555,8000-8200 -O --max-rtt-timeout 100ms --max-retries 2 -T aggressive '. $hostname);
        $scanner->guess_os();
        print "\n";
        #print "$hostname - ".$hash{$key}{'Ports Open'} . "\n";
}