Select Code to Download

package Father;
use warnings;
...
  die('Parent aList');
}
1;

package Son;
use warnings;
...
}

1;

#! /usr/bin/perl
use strict;
...
print join(', ', @{$s->aList()}), "\n";

$s->print_son();