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