#!/usr/local/bin/perl -w

package One;

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


package Two;

@ISA = ("One");

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

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

##</code><code>##

# main.pl
use One;
use Two;

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

# So, to execute the program, I type
>perl main.pl