Select Code to Download

use strict;
use warnings;
...
    print "\n";
    }
  }

ip1
 21  ftp  open
...
ip2
 23  telnet  open
 80  web  open