Select Code to Download

    my $verify_port = sub {
    my $port = shift;
...
        return FALSE;
    }
    };

# I ~love~ readonly. Primarily because you can write stuff like:
# print "$MIN_TCP_PORT < x < $MAX_TCP_PORT\n";
...
# (possible if verify_port() returns $port)
my $ntp_port = verify_port($input)
  or die 'Invalid ntp port!';