You might take a look at the module B::Lint which does similar sort of things, albeit as a static check rather than at runtime, but it might give you a feel for what would be involved.

Getting offical approval to use one of the $^H bits (see S* strict.pm), and getting your code adopted in the core might be harder, but there would be nothing to stop you doing this for your own benefit.

* Corrected case of S. Thanks Bart.