#!perl
use strict;
use warnings;

use My::Package;
use My::Package::Derived;

local $\ = "\n";

my $item1 = new My::Package;
my $item2 = new My::Package::Derived;

print $item1->SOME_VALUE;
print $item1->SOME_DERIVED_VALUE;
print $item1->ANOTHER_DERIVED_VALUE;

print '-' x 30;

print $item2->SOME_VALUE;
print $item2->SOME_DERIVED_VALUE;
print $item2->ANOTHER_DERIVED_VALUE;