To check if you are blessed into a particular class: if (ref ($obj) eq $classname)

To check if you are blessed at all... I think if (ref $obj and ref $obj ne 'ARRAY' and ref $obj ne 'HASH') # ... etc. would do it...

but if (UNIVERSAL::isa($obj, 'UNIVERSAL')) is probably better.

dave hj~