Help for this page
eval(' package '.$package.'; ... $t->{'.$var.'}; } ')
eval(sprintf( ' ... ', $package, $accessor, $var, $var ))