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