# ファイル名をランダムにする

my @z = split //, "abcdefghijklmnopqrstuvwxyz0123456789";
for (glob "*") {
	my $fn;
	$fn .= $z[int(rand scalar @z)] for (1..8);
	$fn .= $_;
	$fn .= $z[int(rand scalar @z)] for (1..4);
	rename $_, $fn;
}