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";

##</code><code>##

object is of Greetings class