Select Code to Download

use warnings;
use strict;
...
my $obj = Greetings->new;

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

object is of Greetings class