package AverageJoe;

sub get_name { ${shift(@_)} }


package tom;

our @ISA = 'AverageJoe';

sub new {
   my $class = shift;
   my $text = "This is tom";
   return bless(\$text, $class);
}


package dick;

our @ISA = 'AverageJoe';

sub new {
   my $class = shift;
   my $text = "This is dick";
   return bless(\$text, $class);
}


package main; # Not mod_perl safe.

my $tom  = tom->new();
my $dick = dick->new();

{
   print $tom->get_name(), $/;
   print $dick->get_name(), $/;
}