use ModuleA;
my $val = ModuleA->new();

##</code><code>##

package ModuleA;
use SelfLoader;

1;
__DATA__
sub new {
  my $class = shift;
  bless { @_ }, $class;
}