package A1;
use A2;
use C;
sub functionA
{
	print "In A1: ".C::TYPE->{VEG}."\n";
	A2::functionA();
}