my ($pkg) = caller;
my $value1 = ${$pkg . "::value1"};
my $value2 = ${$pkg . "::value2"};