package Son;

use base Father;

sub new {
    bless {}, Son;
   *{'Father::alert'} = sub {
       print 'son' . $/;
   };
}
Son->new->alert();