#!/usr/bin/perl
package B;
  
use warnings;
use strict;
use A;
  
our @ISA=qw(A);
  
sub new
{
     my $object = shift;
     my $class = ref($object)||$object;
      
      
     my $self = $class->SUPER::new();
      
     bless($self,$class);
      
     return $self;
}
  
sub DESTROY
{
     print("DESTROY in B","\n");
}
  
  
  
sub hello
{
     my $self = shift;
     $self->SUPER::hello();
     print("hello in B\n");
}
  
  
  
return 1;