if ((my_perl = perl_alloc()) == NULL)
{
	perror("Failed to create interpreter");
	return 2;
}
perl_construct(my_perl);

/* Run the startup script */
startup[0] = soapGlobals.service;
startup[1] = soapGlobals.config;

if (perl_parse(my_perl,
	       xs_init,
	       NumberOf(startup),
	       startup,
	       NULL) != 0)
{
        perror ("Failed to parse startup file");
	return 3;
}
/* Define the proper exit flags */
#ifdef PERL_EXIT_DESTRUCT_END
    PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
#endif
/* Run the interpreter */
if (perl_run(my_perl) != 0)
{
	perror ("Failed to run interpreter");
	return 3;
}

##</code><code>##

static void xs_init(pTHX)
{
	char *file = __FILE__;
	dXSUB_SYS;
	/* Bring in the dynamic loader */
	newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
}

##</code><code>##

use	Enmac::Transaction;

1;

##</code><code>##

Can't load '/users/lib/modules/lib/perl5/site_perl/5.8.5/aix-64all/auto/Enmac/Transaction/Transaction.so' for module Enmac::Transaction: A file or directory in the path name does not exist. at /usr/local/lib/perl5/5.8.5/aix-64all/DynaLoader.pm line 230.