package tom;

sub new {
my $self = "This is tom";
bless ($self, $class);
}