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

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

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

            return $return;
    }