#! /usr/bin/perl
use strict;
use warnings;


use Son;

my $s = Son->new();
print $s->aText(), "\n";
print join(', ', @{$s->aList()}), "\n";

$s->print_son();