new[A]
new[B]

##</code><code>##

new[A]
Can't locate object method "new" via package "B" at test.pl line 6.

##</code><code>##

#! /usr/bin/perl 
use strict;
use warnings;

A->new();
B->new();

package A;
sub new { print "new[$_[0]]\n"; }
package B;
use vars qw(@ISA);
@ISA = qw/A/;