open(my $out, '>>', 'port.txt') or die "Can't open < port.txt: $!"; print $out "\n$ip:$port\n"; close($out) or die "Can't close < port.txt: $!";;