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

##</code><code>##

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