open (my $grades, "<", $self->{gradefile})
  or die ....