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