Немного почистил код, решил пообще не юзать ф-ию xor_password...подглядел в подсказку Digimortal =)
Обновил первый пост...

ЗЫЖ Посмотрел в шапку скрипта, понял что что-то не то, потом понял что именно:
use Socket;
use IO::Handle;
поправил на
use IO::Socket; =)