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