my $salt = 'Na'; print crypt( 'password', $salt ), $/; print "Valid" if crypt( 'password', $salt ) eq 'Na3eD25AE5/zI';