Select Code to Download

use IO::Socket::INET  qw( AF_INET );
use IO::Socket::INET6 qw( AF_INET6 );
...
) or die "Can't make $protocol server on port $socket_port: $@\n";

print "Running on port $socket_port.\n" if $verbose;