package Student;
require 5.000;
use Exporter;
use Person;
use strict;
use vars qw/ @ISA /;
@ISA = qw/ Person /;

sub new {
    my( $class, $name, $height, $school, $grade ) = @_;
    my $this = Person->new( $name, $height );
    $this->{school} = $school;
    $this->{grade}  = $grade;
    bless $this, $class;
}

sub school {
    my $this = shift;
    if( @_ ){
	$this->{school} = shift;
    } else {
	$this->{school};
    }
}

sub grade {
    my $this = shift;
    if( @_ ){
	$this->{grade} = shift;
    } else {
	$this->{grade};
    }
}

1;