inheritance cod found from perlmonk