Scapy like implementation using Net::Packet, just to prove it GomoR <perl@gomor.org>