package ModB;
use parent qw'ModA';

sub new {
	my $c = shift;
	return $c->SUPER::new ( @_ ) ;	
}
1;

##</code><code>##

package ModA;
sub new { return bless {}, shift }
sub p { print @_ }
1;

##</code><code>##

use ModB;
my $b = ModB->new();
$b -> p ( "World!" ) ;