package tom;

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

# (other subroutines for tom go here)

package dick;

sub new {
my $self = "This is dick";
bless ($self, $class);
}
# (subroutines for dick go here)


package harry;

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

# (routines for harry go here)

1;