# This file is MyDynCode.pm
package MyDynCode ;

use strict ;
use warnings ;

use base 'Exporter' ;

our @EXPORT = qw(dynamic) ;

sub dynamic {
 print "runrunrunrunrun!!!" ;
}

##</code><code>##

use strict ;
use warnings ;

my $dynapack = 'MyDynCode' ;

eval "use $dynapack" ;
die $@ if $@ ;

dynamic() ;

##</code><code>##

require "$dynapack.pm" ;
import $dynapack ;