ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Люди обьясните мне чайнику пожалуйста
Как на perl в сокетах, ip Отправителя(тоесть свой) Подменить.

my $serv = IO::Socket::INET->new (PeerAddr=> '0.84.181.100',
LocalAddr=>'195.255.181.1',
Proto=> 'udp')

Непонятка собствено вот в чем Когда в LocalAddr
заносиш свой реальный ip то все работает
а как только левый какойто, так сразу $serv->send($data); выдает ошибку:
Canno't call method"send" on an undefined value...;

Help me Plese!!!

P.S.
Заранее блогадарен!!!!