1#!/usr/bin/perl
2#
3# Copyright (C) Internet Systems Consortium, Inc. ("ISC")
4#
5# This Source Code Form is subject to the terms of the Mozilla Public
6# License, v. 2.0. If a copy of the MPL was not distributed with this
7# file, You can obtain one at http://mozilla.org/MPL/2.0/.
8#
9# See the COPYRIGHT file distributed with this work for additional
10# information regarding copyright ownership.
11
12require 5.001;
13
14use IO::Socket::INET6;
15
16foreach $addr (@ARGV) {
17	my $sock;
18	$sock = IO::Socket::INET6->new(LocalAddr => $addr,
19                                       LocalPort => 0,
20                                       Proto     => tcp)
21                             or die "Can't bind : $@\n";
22	close($sock);
23}
24