my $eth = Net::Packet::ETH->new(src=>$mac_end2,dst=>'ff:ff:ff:ff:ff:ff',type=>'34525');
my $ip6 = Net::Packet::IPv6->new(src=>'::',dst => 'FF02::1:2',nextHeader=>NP_IPv6_PROTOCOL_UDP );
my $udp = Net::Packet::UDP->new(src=>546,dst=>547);
my $data = make_sollicit();
my $frame = Net::Packet::Frame->new(l2=>$eth,l3=>$ip6,l4=>$udp,l7=>$data);
$frame->send();


$eth = Net::Packet::ETH->new(src=>$mac_end1,dst=>'ff:ff:ff:ff:ff:ff',type=>'34525');
$ip6 = Net::Packet::IPv6->new(src=>'::',dst => 'FF02::1:2',nextHeader=>NP_IPv6_PROTOCOL_UDP );
$udp = Net::Packet::UDP->new(src=>546,dst=>547);
$data = make_sollicit();
$frame = Net::Packet::Frame->new(l2=>$eth,l3=>$ip6,l4=>$udp,l7=>$data);
$frame->pack;
$frame->send();