Realy the script search show the polymorphism and inheritance
this explained with 4 level of call new sub object.

I generate 4 level de inheritance for J A P H , is for the
art.It's for what look more nice. 

The idea es practice OO with JAPH - Just another Perl hacker,