if ( ( $var_username eq $username ) && ( $encrypted_password eq $password ) ) {
   print "$var_username, $encrypted_password <br>"; # I will remove this in real world
   print "Permission has been granted <br>";
   print "<META HTTP-EQUIV=refresh CONTENT=\"$t;URL=$url\">\n";
   $didmsg=1; 
   last; 
   }