my $_Class_Data = "private";
...
# constructor
sub new 
{
	my $class = shift; 
	return bless(
		{	_Class_Data => \$_Class_Data,
			# other init...	
		},
		$class
	);
}