use base qw(Exporter);
*isa = \&UNIVERSAL::isa;
print isa({}, 'HASH');

# Output under perl 5.6     : Undefined subroutine &main::isa called at - line 4.
# Output under perl 5.005_03: 1