1234567 package Named::Scientist;use parent 'Scientist';sub name { 'joe' };1;
package
Named::Scientist;
use
parent
'Scientist'
;
sub
name {
'joe'
};
1;