#!/usr/bin/perl
use
strict;
use
warnings;
my
$target
=
shift
||
die
(
"Specify target\n"
);
my
$dev
=
shift
;
$target
= getHostIpv6Addr(
$target
) or
die
(
"lookup\n"
);
use
Net::Frame::Device;
my
$d
;
if
(
$dev
) {
$d
= Net::Frame::Device->new(
dev
=>
$dev
,
target6
=>
$target
,
);
}
else
{
$d
= Net::Frame::Device->new(
target6
=>
$target
);
}
my
$mac
=
$d
->lookupMac6(
$target
);
'MAC: '
.
$mac
.
"\n"
if
$mac
;
$d
->cgDumper.
"\n"
;