if (ref($obj) and UNIVERSAL::isa($obj, 'UNIVERSAL')) { ... }