package Employee;

use Person;

@ISA = ('Person');

sub salary {
	my $self = shift;

	$self->{SALARY} = shift if @_;

	return $self->{SALARY};
}

sub id_number {
	my $self = shift;

	$self->{ID} = shift if @_;

	return $self->{ID};
}

sub start_date {
	my $self = shift;

	$self->{START_DATE} = shift if @_;

	return $self->{START_DATE};
}  

1;