open(ACC,"login");
желательно после открытия када-нить закрыть всё-таки файл ))
print VALIDE $login,';',$pass; смутило чуть....не проще: print VALIDE "$login;$pass\n";