A simple example of perl inheritance