#!/opt/perl/bin/perl -w

use strict;

scalar(@ARGV) or die "usage: mkkey length\n";

my $len = $ARGV[0];
my $key = "";
for (my $i = 0; $i < $len; $i++) {
    $key .= ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64];
}
print $key, "\n";
.