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