クラス名をえるには以下のようにする。ただしここで Scalar::Util は標準添付モジュールである(from 5.7.3)。
use Scalar::Util qw/blessed/; say blessed($obj);