package OldeCruft;
use deprecated; # carps if module loaded
...

##</code><code>##

package OldeCruft;
use deprecated qw(dangerous);
               # carps if OldeCruft::dangerous() is called
...