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