if ( ( $var_username eq $username ) && ( $encrypted_password eq $password ) ) { print "$var_username, $encrypted_password "; # I will remove this in real world print "Permission has been granted "; print "\n"; $didmsg=1; last; }