in reply to Need help writting a Perl Module

core.pm did not return a true value

Put =cut before the 1 at the end:

... =cut 1;

As you have it, the 1 is considered part of the POD.