package cogito;AUTOLOAD{$AUTOLOAD=~/::(.*)/;print"@{[(ucfirst shift,$1,@_)]}."};cogito->ergo("sum")

struct{struct{struct{char*h;}p_,*p;}a_,*a;}j_,*j;j=&j_;j->a=&j->a_;j->a->p=&j->a->p_;j->a->p->h="just another perl hacker";puts(j->a->p->h);