package Father; sub alert { print 'father' . $/; } 1