package B;
*new = \&A::new;

sub AUTOLOAD {
    print "autoload in B, called as $AUTOLOAD\n";
}