use Scalar::Util qw(reftype); my $o=bless {},MyClass; print ref $o # prints "MyClass" print reftype($o) # prints "HASH"