Help for this page
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();