perl не отрабатывает if при использовании сокетов.

[alex116]

Всем добрый день. Возник такой вопрос, не могу понять почему при использовании сокетов в perl у меня не отрабатывает условие "если". Создан простой telnet клиент, который понимает только одну команду, которая уже в свою очередь запрашивает дополнительные сведения для своей работы. Пробовал выводить переменную на экран, которая указана в условиях сравнения, на глаз она полностью совпадает со сравниваемым значением, но программа идет по направлению else.

Просьба помощи.

            
     foreach (@def_commands) {
               if($enter_command eq "port") {
               print $client "Vvedite parol: ";
               my $pass_user = <$client>;
               chomp($pass_user);
               if ( $pass_user eq "pass" ){

                    .....

                   } else { print $client "Nepravilniy parol\n";  }
                 }

Первое условие if отрабатывает нормально, а вот при запросе пароля всегда выдает на экран сообщение о неправильном пароле.

[alex116]

Сделал проверку на идентичность переменной $pass_user и "pass" через подсчет md5 cсуммы, выводит что эти значения разные ..