#!/usr/bin/perl
#
# generates unique MD5 ID and uses base64 encoding
# for converting into 22-long word
#
# name is suitable for filenames and uri requests
# name is case sancative

use Digest::MD5 qw(md5_base64);

my $last_key;

sub new_key65 {
 my $name=shift;
 for (my $i=0;;$i++) {
   my $init=sprintf "%d=$name=%d=$last_key",time,$i;
   $last_key = md5_base64($init);
   next if $last_key =~ /\/|\+/;
   return $last_key;
 }
}

print new_key65($$)."\n";
