That's pretty much what UNIVERSAL::Object aims to do, but uses UNIVERSAL::Object::new instead of UNIVERSAL::new. Probably pretty easy to do something like:

push @UNIVERSAL::ISA, 'UNIVERSAL::Object';
[download]