Netik interview question

inheritance in perl