open(OUT,">$ziel");
print OUT join "\n", @inactive_ports;
close(OUT);