Select Code to Download

eval "package $pkg; sub new { (shift)->SUPER::new( \%\$fields ); }"

Variable "$fields" will not stay shared at (eval 32) line 1.