package Son;
use warnings;
use strict;

use Father;
use base qw(Father);

use constant {
  aText => 'This is a Text',
  aList => [qw(aaa bbb ccc)],
};

sub print_son {
  my $self = shift;  
  print 'Son:', $self->aText(), "\n";
  print 'Son: ', join(', ', @{$self->aList()}), "\n";
}

1;