package Foo;
use AutoLoader 'AUTOLOADER';

package Bar;
use AutoLoader;

AUTOLOAD();
print "OK...Done!\n" unless $@;

__END__

sub AUTOLOAD {
    $AutoLoader::AUTOLOAD = "CORE::sysread",
    goto \&AutoLoader::AUTOLOAD;
}