or download this
$eth = Net::Packet::ETH->new(src=>$mac_end1,dst=>'ff:ff:ff:ff:ff:ff',t
+ype=>'34525');
$ip6 = Net::Packet::IPv6->new(dst => 'FF02::1:2');
$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->send();