Thanks to all for helping with my perl oo and inheritance questions :)

Let's say I choose the packages-in-different-files approach, is the following code correct (3 files, the first is named One.pm, the second Two.pm and the third interface.pl)?

# One.pm
package One;

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

1;

# Two.pm
package Two;

@ISA = 'One';

1;

# interface.pl
use One;
use Two;

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