#!perl -w

package One;

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


package Two;

@ISA = ("One");

package main;

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