my (@chars) = ('a'..'z','A'..'Z','0'..'9','.','/');

    sub md5_salt
    {
            my ($return) = '$1$';

            $return .= $chars[rand($#chars+1)] foreach (0..7);

            return $return;
    }

##</code><code>##

     $encrypted_passwd = crypt($passwd, md5_salt());

     # For testing...
     if (crypt($passwd_guess,$passwd_encrypted) eq
         $passwd_encrypted)
     {
          # Got it.
     }

##</code><code>##

     $1$1PUXLuZE$P.LfclRO9SKqTf2BQK.yD1
     $1$t7AJPueY$1ivH/pIhxnjEIx10QzaIi.
     $1$lvWzTNnn$JFsfy9ALLJS3Dpi4OHMVo1