[perl] Senhas

[jefferson S.A]

Ola Galera    Estou tentando fazer um script simples de senha que so possui uma entrada e checa se existe o valor digitado num bco de dados, porem como estou começando estou levando um coro na seguinte parte do codigo   open (SENHAS, "$passfile") || &open_error($passfile); @lines = <SENHAS>; close (SENHAS); foreach $line (@lines)   if ($FORM{'entrada_form'} eq $line) {    print "senha certa"; exit; }  } print "senha errada"; exit;   o bco abre direito porem  no IF mesmo digitando uma senha correta o programa passa direto e informa senha  errada, acho que deve ser alguma coisa com o IF.     Se algum tiver alguma ideia ficarei grato.                   um abraço a todos                                                             Kid