package Test;

sub new {

	my $class   = shift;
	my $item    = {};
	print "DEBUG : creating object in " . __PACKAGE__ . "\n";
	bless $item , $class;
	return $item;
}

1;