use strict ; use warnings ; my $dynapack = 'MyDynCode' ; eval "use $dynapack" ; die $@ if $@ ; dynamic() ;