#!/usr/bin/perl
my $size=int(rand(8192)+8192);
my @array=(a..z,A..Z,0..9);
while($size--){
	print $array[rand(@array)];
}