use vars qw( $RegObj %_Roots %RegHash $Registry ); carp "my print message\n ";#no print print "my print message\n ";#no print #### use TieRegistry