my $lRandomPassword = '';
	my $lMaxLength = 10;
	my $length;
	my $lRand;
	my @lKeySpace = ('A'..'Z', 'a..z', 0..9);
	my $lKeySpaceSize = scalar(@lKeySpace);
	for ($length = 0; $length < $lMaxLength; $length++) {
		$lRand = int(rand($lKeySpaceSize));
		$lRandomPassword .= $lKeySpace[$lRand];
	};
	$lRandomPassword;