http://www.perlmonks.org?node_id=177302


in reply to elsif ne loop

i would suggest restricting the scope of the "pass" variable like this :
my $pass = crypt($q->param('old'), r);
this will ensure that every time the "change_pass" subroutine is called, the "pass" variable will be re-initialized...