package TheLoader;

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

package UNIVERSAL

sub AUTOLOAD
{
   ...
}