perl 继承写法

use base (Critter);  
  
和  
  
BEGIN{  
require Critter;  
@ISA=qw/Critter/;  
}  
这两种写法是等价