Если использовать модули на основе libpcap (Net::RawIP), то примеры есть в их документации.
Можно обойтись и без спеиальных модулей - почитай статью:
http://xain.hackerdom.ru/zine/online/issue0/Raw%20&%20Packet%20Sockets%20in%20PERL.html