[Perl] クラス名を得る（何らかのオブジェクトであるかどうかを判定する）方法

Scalar::Utilのblessedで何らかのクラスのオブジェクトかどうかを簡単に判定できます。 また、ref関数でクラス名を得ることができます。