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