use SelfLoader;
sub sub1;
use ModuleA;
my $val = new ModuleA;