sub One::new {
      my $class = shift;
      print "creating object of class $class\n";
      bless {}, $class;
   }

   @Two::ISA = ("One");

   my $one = One->new();
   my $two = Two->new();

   # creating object of class One
   # creating object of class Two