Select Code to Download

$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');
...
$data = Net::Packet::Layer7->new(data => make_sollicit());
$frame = Net::Packet::Frame->new(l2=>$eth,l3=>$ip6,l4=>$udp,l7=>$data)
+;
$frame->send();

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/