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

gistfile1.pl

use Scalar::Util qw/blessed/;

my $obj = new MyClass;

if (blessed($obj)) {
    print "is MyClass object.", "¥n";
    print ref($obj); # you get class name (in this situation, you get MyClass)
} else {
    print "is not any object.", "¥n";   
}