Select Code to Download

use strict;

# Variables
...
    printf "%8s%12s%12s%16s\n", @port[$i], @protocol[$i], @pid[$i][1],
+ @app[$i];
    $i++;
}

Scanning for open ports... done.

The following ports are open on your system
...
     515         tcp       21943            lpd

    6000         tcp        1738              X

Scanning for open ports... done.

The following ports are open on your system
...
     139         tcp242  3995  3997  4007  4009  4011           smbd

     143         tcp   269  1006         xinetd