if ($type = ref $t) {
                eval { $t->isa("UNIVERSAL"); };
                if ( $@=~/unblessed/ ) {
                        print "It's a $type, not blessed.\n"
                } else {
                        print "It's blessed into class $type";
                }
        } else {
                print "Not a reference at all\n";
        }