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