You can use the ref function for that:

use warnings;
use strict;

package Greetings; {
    sub new {
        return bless {}, shift;
    }
}

package main;

my $obj = Greetings->new;

print "object is of " . ref($obj) . " class\n";
[download]

Output:

object is of Greetings class
[download]