package TheLoader;

BEGIN
{
   $SIG{__WARN__} = sub 
   {
       return if $_[0] =~ /inherited AUTOLOAD/;
       print STDERR @_;
   };
}

package UNIVERSAL

sub AUTOLOAD
{
   ...
}

##</code><code>##

Use of inherited AUTOLOAD for non-method Foo::Bar::getSomething() is deprecated at ....Test.pm line 200 (#1)
....