package Person;
$VERSION = 1.0;
##
## This had better be called with two parameters!
## SYNTAX:  new Person ("George", "Washington");
##
sub new {
  my ($class, @params) = @_;

  # create an anonymous hash to hold our instance variables…
  # this becomes our object once it is "blessed"
  my($this) = {};

  # place any initialized parameters
  if ($#params >= 1) {
    $this->{'FIRST_NAME'} = $params[0];
    $this->{'LAST_NAME'} = $params[1];
  } else {
    $this->{'FIRST_NAME'} = undef;
    $this->{'SECOND_NAME'} = undef;
  }

  # bless us as belonging to the Person class
  bless ($this, $class);
  return $this;
}

##
## Returns a string of the first and last name concatenated together
##
sub getName {
  # shift the argument stack to get a reference to the invoking object
  my ($this) = shift;

  return "$this->{'FIRST_NAME'} $this->{'LAST_NAME'}";
}