use strict;
my $foo = sample->new;
print ref $foo;