sub key2path { my $key = shift; my $digest = Digest::MD5::md5_hex( $key ); return substr( $digest, 0, 2 ) . "/" . substr( $digest, 2, 2 ) . "/" . $digest; }