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

##</code><code>##

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