#!/usr/bin/perl
use strict;
use warnings;

my $dst = shift || die("Specify target host\n");

use Net::Frame::Layer qw(:subs);

$dst = getHostIpv6Addr($dst) or die("Lookup\n");

use Data::Dumper;
use Net::Libdnet6;

my @h = intf_get_dst6($dst);
print Dumper(\@h)."\n";