[MacPerl] one module that don't return true value

[David]

I have a module that don't return a true value after a commande require,
however there's a 1; after the last sub
what can i do ?