$ perl -MCGI -le " print CGI->new "
CGI=HASH(0x3f8c8c)

$ perl -MCGI -le " print ref( CGI->new ) "
CGI

$ perl -MCGI -le " print CGI->new->can(q/SUPER::VERSION/) "
CODE(0x3f8e5c)

$ perl -MCGI -MSub::Identify=:all -le " print sub_fullname( CGI->new->can(q/SUPER::VERSION/) ) "
UNIVERSAL::VERSION